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ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ie ALL RIGHTS RESERVED. 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE 
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iw INCLUSION OF THE ABOVE COPYRIGHT NOTICE. TH 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHER 
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0 'e¢ 
+ FACILITY: EXECUTIVE, SYSTEM SERVICES 
99 ABSTRACT: 
60 i This module contains system services that maintain the rights 
ot : database. It is built as a privileged shareable image. The 
7 : remaining rights database system services are in the exec. 
: b3 The system services in this module are: 
40 04 i SADD_HOLDER SADD_IDENT SCREATE_RDB 
41 004 ! $F IND_HELD $F INBD_HOLDER $MOD_HOCDER 
4g Be $MOD_TDENT $REM_ROLDER SREM_IDENT 
44 04 ENVIRONMENT : 
48 be VAX/VMS native mode, user, supervisor, or exec modes. 
48 4 inn 
49 $e : 
39 Be AUTHOR: Andrew C. Goldstein, CREATION DATE: 16-Nov-1982 18:51 
5 3 MODIFIED BY: 
54 5 i V03-013 ACG0447 Andrew C. Goldstein, 23-Aug-1984 16:35 
56 ; Upcase all input identifier names 
$ $8 i v03-012 JRLOO09 John R. Lawson, Jr. 29-Jun-1984 11:28 
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R RDBSHR = Rights database loadable system servic 16-Sep-1984 01:48: AX-11 Bliss-32 V4.0-74 
v04-000 ° f 1 ~3007 138% 93:48:28 LOADSS. RCIRDBSHR B32; 
; 28 ; 1! Check for existence of current Rights Data Base. 
: Fes : } Do not allow SCREATE if present. 
: 61 1} VO3-011 LY0469 Larry Yetto 22-MAR=1984 14:13 
3 ¢ § 1} Add two new parameters to the MOD_IDENT service to 
© ? 1! allow the identifier name or valug to be modified, This 
3; & 4 1! change also requires the CHG attribut to be associated 
3 65 1! with the secondary and tertiary keys therefore the create service 
: 68 r¢ : was also modified. 
: 68 ; 1 V03-010 RSHO100 R. Scott Hanna 03-Feb-1984 
3 9 $ 1! Update comments to indicate that the ATTRIB parameter is 
: » ty ! optional for SADD_HOLDER AND SADD_IDENT. 
: 078 1! V03-009 RSHO088 R. Scott Hanna 05-Jan-1984 
3 0735 1! Change SADD_HOLDER, SADD_IDENT, SMOD_HOLDER, SMOD_IDENT, 
; 074 1: SREM_HOLDER; and SREM_IDENT to return SS$_NORMAL Tnstead 
; tte i of RAS$_NORMAL. 
; $79 1 v03-008 TMKO001 Todd M. Katz 22-0¢ t-1983 
3 078 7! The name of the real eyetee service sorry ps for 
: 079 1! SFINISH_RDB has been changed from EXESFINISH_RDB to 
3 080 1! EXESSFINISH_RDB. This change was required because the 
3 081 1! system service could no longer be reached directly from the 
; oes : executive mode system service dispatcher. 
: sie 1 i V03-007 RSHO062 R. Scott Hanna 12-Sep-1983 
; 85 0085 1! Modify 1D value validation to return SS$_IVIDENT for 
: 3 B088 ! } an ID of 0. (ALL services except SADD_IDENT) 
; «88 $088 ii V03-006 RSHOO0SO R. Scott Hanna 28-Jul-1983 
; 8 0089 1! Changed SYSSCREATE_RDB to use the new FAB bits 
: oy 0091 ! FABSV_LNM_MODE instead of FABSB_DSBMSK. 
; % 09¢ 1 i V03-005 RSHO046 R. Scott Hanna 24-Jul-1983 
; F 0095 1! Modified SYSSCREATE_RDB to create records for the 
3 Be Boe ! } environmental rights. 
; 96 096 1 V03-004 RSHO041 R. Scott Hanna 21-Jun-1983 
; 9 097 1! Provide additional ID name validation. Open the rights 
; 8 8 1! database as a process permanent file when there is no 
3 100 t+ : active image. 
; 101 101 1! v03-003 RSHOO33 R. Scott Hanna 26-May-1983 
; 10 1 ; 1! Modify FAB in EXESOPEN_RDB so that a logical name 
: 37 : ? ' } can be used for the Rights Database. 
: 105 105 1! V03-002 GAS0126 Gerry Smith 26-May-1983 
; 138 1 1! Put SYSSFIND_HELD into its own module. This is 
> | 1 1! necessary so that LOGINOUT can reference it before 
3 108 198 ' the loadable system services are loaded, at boot time. 
5 110 110 1! v03-001 RSHO008 R. Scott Hanna 01-Mar-1983 
3 1} +} ' Changed SYSSCREATE_RDB to call EXESSET_RDIPTR, 
; 118 118 1 ive 
3; (116 114 «1 
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vee geen 13Be 83i2b:8s | EeNabssOsaesRaasun ose, 


*SYSSLIBRARY:L1B.L32'; 


ROUTINE 

SYSSADD_HOLDER, 

SYSSADD IDENT 

SYSSCREATE_RDB 

SYSS$FIND_ HOLDER, 

SYSSMOD_ROLDER, 

SYSSMOD- IDENT, 

SYS$MOD-IDENT_ATTRIB, 

SYS$MOD“IDENT= D, 

SYSSMOD~IDENT-NAME, 

SYSSREM_HOLDER, 

SYSSREM~ IDENT; 

EXE_VAL_IDNAME = JSB (REGISTER=1; REGISTER=1, REGISTER=2) : 
NOPRESERVE (3) 
NOTUSED (4,5,6,7,8,9,10,11), 

EXE_ALOP1IMAG = JSB (REGISTER=1; REGISTER=1,REGISTER=2) : 
NOPRESERVE (3); 

ROUTINE 

EXESOPEN_RDB : ADDRESSING MODE (ABSOLUTE) 

EXESCLOSE RDB =: NOVALUE ADDRESSING MODE (ABSOLUTE), 

EXESSFINISH_RDB : ADDRESSING MODE (ABSOLUTE) 

EXESALOP1IMAG : EXE_ALOP1IMAG ADDRESSING MODE (ABSOLUTE) 

EXESVAL_ID : EXE"VAL_IDNAME ADDRESSING MODE (ABSOLUTE), 

EXESSET-RDIPTR : ADDRESSING _MODE (ABSOLUTE), 

SYSSCMKRNL : ADDRESSING-MODE (ABSOLUTE); 

CTL$GL_RDIPTR : REF SBBLOCK ADDRESSING_MODE (ABSOLUTE), 

CTL$GL~IMGHDRBF : LONG ADDRESSING MODE (ABSOLUTE), 

EXEST_ID_UPCASE : VECTOR C,BYTE) ADDRESSING MODE (GENERAL); 

PROBER, 

PROBEW: 

UICSM_ID_FORM_FLAG = 1°31, ! mask for id form of identifier 

KGBSM_VACID_ATTRIB = KGBSM_RESOURCE; ! mask of valid attributes 
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RDBSHR RDBSHR = Rights database loadable system servic 16-Sep-1984 01:48: AX-11 Bliss-32 V4.0-74 
¥02-000 SYSSADD_HOLDER = add holder to RDB 1 ~3007} 382 93:48:29 LOADSS.SRCJRDBSHR.B32; 
3; 161 1 9 1 ZSBTTL * SYSSADD Ant t - add holder to RDB‘ 
: 196 1 1 GLOBAL ROUTINE SYS ADD_HOLDER (ID, HOLDER, ATTRIB) = 
ig BE di 
; 166 165 FUNCTIONAL DESCRIPTION: 
: 168 189 1 i This routine adds the specified holder record to the rights 
: 198 198 : database. 
: 171 19 1 | CALLING SEQUENCE: 
; \7¢ 4) SYSSADD_HOLDER (ID, HOLDER, ATTRIB) 
: 174 178 1 i INPUT PARAMETERS: 
; «175 17%4~«1« ID: identifier longword to associate the 
3 178 175 1! older record wit 
eT Bi78 1! HOLDER: address of the holder identifier quadword 
: \78 gi2 ! ATTRIB: (optional) attributes longword to grant to the holder 
: 180 8179 1 ' IMPLICIT INPUTS: 
egemrhai 
: 188 18 1 | OUTPUT PARAMETERS: 
: BS O14 | | — 
; 186 0185 1! IMPLICIT OUTPUTS: 
ieee ip. 
: 189 0188 1 ' ROUTINE VALUE: 
: 130 +4 : Status of operation 
; 198 S194 1 | SIDE EFFECTS: 
- 19 b 138 1! Holder record created 
s 194 193 1! 
; 195 194 1 !e- 
: 196 195 1 
3 6197 0196 BEGIN 
on ren 
; 200 199 LOC_ID : LONG, ! Local copy of ID 
3 201 0200 LOC" HOLDER : REF VECTOR, ! Local copy of HOLDER 
3 O 8 01 HOLBER_ID : VECTOR C2), ! local copy of holder id quadword 
; 20 Oe LOC_ATTRIB : LONG, ' Local copy of ATTRIB 
3; 204 ID_ATTRIB : LONG, ' attributes of identifier 
; 205 4 STATUS : LONG, ! general status value . 
3 53 5 CLOSE LONG, ' call to GXFSCLOSE RDB required flag 
; 20 o6 RAB : $RAB_DECL, ! RAB for fi § operations 
; 208 0 REC_BUFFER : SBBLOCK CKGBSK_IDENT_RECORDJ; 
: % 43 T general purpose record buffer 
: it 10 2 LABEL : 
3 \¢ 1} RDB_OPEN; ! rights database is open in this block 
i \ 18 Validate parameters 
ae, oe he 
3 13 16 LOC_ID = .1D; 
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R = Rights database loadable system servic 1e-Se -1984 01:48: AX-11 Bliss-32 V4.0-74 
ADD_HOLDER = add holder to RB . 14- Hat 7 93:28:28 LOADSS’SRE RDSSMR O30, 


DBS 
SYS 
; 8 ' IF (Loc 1D AND UICSM_ID_FORM_FLAG) NEQU 0 
3 9 1 nant (.LOC_ID GTRU UICSK_LAST_ID) THEN RETURN SS$_IVIDENT) 
; é (IF (.LOC_ID GTRU UICS$K_MAX_UIC) OR (.LOC_ID EQL 0) THEN RETURN SS$_IVIDENT); 
: 226 g Loc HOLDER = .HOLDER 
3 225 4 F NOT PROBER “cane (b) ZREF (8), .LOC_HOLDER) THEN RETURN SS$_ACCVIO 
; $ § HOLDER_1D -LOC_HOLDER OF 
; $ HOLDER“1DC1) = ‘LOCHOLDEREI 
; 8 iF - HOLDER. 1p GTRU UICSK_MAX_UIC OR 
3 229 8 LDER =4 EQLU .LOC_ID OR 
; 9 ; . HOLD R71DC13 NEQU 6 
i $3 1 RETURN SS$_IVIDENT; 
: : LOC_ATTRIB = .ATTRIB; 
; 235 6 4 IF T.LOC_ATTRIB AND NOT KGBSM_VALID_ATTRIB) NEQU 0 THEN RETURN SS$_BADPARAM; 
; * 0 $ } Get the rights database open for write. 
: 239 0 8 2. 
: 240 P 3 SRAB_INIT (RAB = RAB, 
+ 2641 P 0240 RAC = KEY, 
3 26 P 41 KRF = 
> 26 P 0 4¢ KBF = HOLDER_IDC0), 
+ 264 P 024 KSZ = 4, 
> 265 P 0244 ROP = (NLK RRL). 
: 26 P 0245 UBF = REC BUF 
i gar P 0966 USZ = KGBSK_ IDENT RECORD 
: 249 0248 2 STATUS = fg RDB (0, 1, RABCRABSW_ISI], CLOSE); 
; 20 0 49 IF NOT .STATUS THEN RETURN .STATUS; 
; 28 0 51 2 RDB_ OPEN: 
Be Jiao 
; 55 0 54 ' Check to make sure that the holder ID exists. 
oe Si 
: 258 § 35 STATUS = SFIND ( RAB); 
: 259 0258 IF .STATUS EQLU Re nes. RNF THEN STATUS = SS$_NOSUCHID; 
; 60 39 IF NOT .STATUS THEN CEAVE RDB_OPEN; 
: 6 $1 ' Read and lock the ident record and save away its attributes. 
-: Ny 
> 265 64 RABC[RABSV_RRL] = 0; 
; 66 65 RABLRABSV~ = 0; 
; 26 66 RABCRABSV-RLK) = 1; 
; 268 6 RABLRABSV-ULK] = 1; 
+ 269 68 RABLRABSV-WAT) = 1; 
3; 270 69 RABCRABSL~KBF) = LOc_ 1D; 
; e7i 0 STATUS = SGET (R : 
2 7 IF .STATUS EQLU RMS$_RNF THEN STATUS = SS$_NOSUCHID; 
> 27 re If T STATUS 
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RDBSHR RDBSHR = Rights database loadable system servic 1b-s6 -1984 01:48:5 AX-11 Bliss-32 V4.0-74 Page 6 
yOL=000 SYSSADD_HOLDER = add holder to R ROB 14- eet 94:78:29 LOADSS. SRCIRDSSHR_B32: ° (2) 
275 7% % BEGIN | 
$ a8 75 4 SFREE (RAB = RAB); 
; gif ie 4 LEAVE RDB_OPEN; ; 
; 8 8 ID_ATTRIB = .REC_BUFFERCKGBSL_ATTRIBUTES); : 
: 81 80 ' Now read all holder records to make sure that the specified holder : 
3 B¢ 8 81 } | Soon" t already exist. 3 
: 2 8 3 
3; 6284 028 : 
: 285 0284 RABCRABSV_RLK) = 0; 3 
3 B6 8 3? RABLRABSV_ULK) = 8: $ 
; 6 RABLRABSV—WAT) = 0; ; 
; 288 0287 RABLRABSV_RRLJ = 1; : 
: «289 0288 RABCRABSV_NLK] = 1; 3 
; 290 0289 RABLRABSV_LIM] = 1; : 
; 91 0290 RABLRABSB_RAC] = RABSC_SEQ; $ 
; 29 0291 WHILE 1 06 ; 
ae 3. 0 35 4 BEGIN ; 
: 294 0295 4 STATUS = S$SGET (RAB = RAB); : 
; 295 0294 4 IF .STATUS EQLU RMSS_ EOF OR «STATUS EQLU RMS$_OK_LIM THEN EXITLOOP; ; 
3 $98 0295 4 IF NOT .STATUS PF 
; 297 0296 4 THEN 3 
: 298 O55 5 BEGIN 3 
3 99 0298 5 SFREE (RAB = RAB); : 
; 300 0¢99 5 LEAVE RDB_OPEN; $ 
; 301 0300 4 END; $ 
; 302 0301 4 IF CHSEQL (KGBSS_HOLDER, HOLDER_I1D(0J, KGBSS_HOLDER, REC_BUFFERCKGB$Q_HOLDER)) ; 
s 305 Beng 4 THEN 3 
: 304 0303 5 BEGIN 3 
; 05 0304 5 STATUS = SS$_DUPIDENT; : 
: 306 0305 5 SFREE (RAB = RAB); : 
3; wr 0306 5 LEAVE RDB_OPEN; $ 
3 $08 0307 4 : 3 
; 309 0308 END; 3 
: 310 0309 | g 
3 $1! Bsi9 Finally build and write the new holder record. : 
3 31 O38 | : 
4 14 031 RABCRABSB_RAC) = RABSC_KEY; 3 
: 315 0314 RABLRABSW_RSZ2] = KGBSK “HOLB_RECORD; : 
$ 16 0315 RABCRABSL_RBF BOFFER : 
: HA eth REC “BUFFER KBs TDERTIF IER) . AND .ID_ATTRIB; : 
: #319 $318 CHSMOVE cass TROLDER mas iti Ny, tBurreRtKGBsa _HOLDER3) ; 3 
; 320 0319 STATUS. = Seu = RAB); | 3 
: 1 0320 SFREE (RAB : Ai. 3 
; $8 8 1 ND; | : 
; $¢ : z Close the rights database if there is no image : 
e ° . o 
: 5 3 
; 36 $ IF .CLOSE THEN EXESCLOSE_RDB(); ; 
3 29 If potatTs : 
; 0 § RETURN SS$_NORMAL : 
3 31 0 ELSE 3 
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RDBSHR RDBSHR = Rights database loadable system s i 1. Sep-19 1:48: AX-11 Bliss-32 V4.0-74 a 

v04-000 SYSSADD_HOLDER = add holder to R es ~3007} 382 04:48:28 LOADSS. SRC RDSSMR O35, 7 (2) | 
: a Ht ; RETURN .STATUS; | : 
: 334 g END; ! End of routine SYSSADD_HOLDER 3 
TITLE RDBSHR RDBSHR - Rights database loadable systen ; 
Ps servic . 
IDENT \v04-000\ | 
EXTRN EXESOPEN RDB, p§XESCLOSE _RDB | ; 
EXTRN EXESS INTSH | ; 
EXTRN EXESALOP THC "exesyat IDNAME ; 
EXTRN EXESSET_RDI pt TR, SCMRRNL : 
EXTRN CTLSGL_RDIPT mitts IMGHDRBF : 
EXTRN EXEST LTD UPLASE | ; 
EXTRN SYS3FIND, SYS$GET ; 
EXTRN SYSS$FREE. SYSS$PUT | 
PSECT $CODE$,NOWRT,2 ; 
03FC 00000 -ENTRY SYSSADD_HOLDER, Save R2,R3.R4,R5,RO,R7.RB,- ; 0161 : 
$2 000000006 09 3 Ap9R2 movag  SYSSGET, RQ. Sais oa | 
4 AE AC DO 0000 MOVL ID ac ip> > 0216 ; 
5 04 AE DO 0001 MOVL LOC_ID,"R? : 0217 : 
08 18 00017 BGEQ~—StséTS$ : : 
SFFFFFFF © 8F 37 pI 9019 CMPL Ry. #-1879048193 : 0219 : 
% 11 $09 2 RB 4$ : ; 
SFFFFFFF © 8F 37 D1 900 4 1$: CHPL Re. #1073741823 : 0221 ; 
57 D3 900 D TSTL  =-R? : : 
2c 13 O002F BEQL 4$ : ; 
50 06 AC DO 00031 2s: MOVL HOLDER, LOC_HOLDER : 0228 F 
60 08 9 Of Bo8 3 pRoseR #0, #8, (LOT_HOLDER) ; 0224 : 
50 0c 06 $00 B MOV! #12, RO : ; 
4 O0O003E RET 3 : 
7c OAL 60 DO 0003F 3s MOVL {LOC HOLDER) « HOLDER_ID > 0225 : 
FC AD 4 AO 00 0004 MOVL 4(LOC_HOLDER), HOLD R. 1D+4 : 0226 3 
SFFFFFFF © BF C AE bt 4 4 CHP HOLDER_ ID, RY HOLDER ; 0227 3 
57 7c OA : CMPL §_- HOLDER_ID, R7 : 0228. : 
0 BEQL 4 3 3 
FC OAD p TSTL HOLDER_ID+4 > 0229 : 
6 5B BEQL «6=sSS$ : ; 
50 2224 «BF zt 005 4$ MOV ZL #8740, RO ; 0231 ; 
58 0c AC D 63 5$ MOVL ATTRIB Loc -ATIRIB : 0235 ; 
FFFFFFFE 8F 38 p 6 Birt Loc ATERIB, #-2 ; 0 ; 
50 14 R ROVL #20, RO : 
0044 8F 00 6E ‘ 00 C as 33 MOVCS #0, (SP), #0, #68, SRMS_PTR 0247 ; 
38 AE auds 8F BO 0007D MOVW #17409, SRMS_PTR : : 
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SYSSADD_HOLDER = add holder to RDB 14-Sep-1 LOADSS. SRC JRDBSHR.B32; (2 
3 aE 00100008 : 3 MOVE #1048584, § sam PTR+4 ; 
38 AE 0 F MOVW AN ted $RM be : 
f AE 98 AE E HH MOVAB REC BUFFER, SRMS 4 hot : 
a ae ae 0st os ll | 
gF D 1 PUSHL SP + 0248 
3E aE F O00A3 PUSHAB RAB+2 : 
5 DD D0AG PUSHL #1 : 
E D4 OOOA =(SP) : 
000000006 iy i f set CALLS a, Q4EXESOPEN_RDB : 
88 : 0B4 BLBS STATUS, 7 > 0249 
0003 31 00087 BRW 16$ : 
38 «AE OF OOOBA 7$ PUSHAB RAB + 0257 
000000006 90 2 FB 9080 CALLS #1, SYS$F IND : 
00018282 BF 36 D} 90¢7 cHPL TATUS, #98994 : 0258 
56 21EC «BFC 0000 MOVZWL #8684, STATUS : 
03 n028 cS 90005 8$: BLBS STATUS, 9$ + 0259 
3¢ aE 00100008 ~ gf cA saa 9$: BICL #1048584, RAB+6 : 0265 
warts Ese Bi OME OOF ooec ROVAB, LOCID. RAB*GB z be68 
69 01 FB Booey CALLS #1, SYSSGET : 
56 50 D0 O00Fe MOVL RO. STATUS : 
00018282 8F 36 Dt sou CMPL STATUS, #98994 : 0271 
56 21EC «BF C3 OOF MOVZWL #8684 STATUS : 
6c 56 £9 00103 10$:  BLBC  STATU : 0272 
eH sosocon MRR SRIS BRB, HHESAREESG. toartes Be 
3C AE 00104008 BF cs O10E BISL M6638. RAB+5 3 0289 
38 3=AE 9F 00119 11%:  PUSHAB sr ie > 0293 
69 01 FB OO1IC CALLS #1, SYSSGET F 
56 50 DO OO11F MOVL RO. STATUS F 
0001827A «BF 36 D4 or 3 CPL STATUS, #98938 ; 02% 
00018051 8F 36 p ot : CPL STATUS, #98385 : 
3B 5 1 BLBC_ STATUS, 13$ : 0295 
10 AE 7c «OE 08 33 a g CPCS #8, HOLDER_ID, REC_BUFFER+8 $333 
56 222¢ 2 3¢ V3 MOV ZL tae STATUS : 0 04 
56 OA 1 90 146 12$:  MOVB RAB+3 ; 9 "3 
SA OA 10 a 14A MOVW a1, RAB+ 34 > 0314 
60 AE 08 AE 14 MOVAB R C BUFFER RAB+40 : : 15 
08 i of 5 HOVE + REC BU fF : 9 1 
OC AE 3 0 : 15a Big a aoe BRO. REC_BUFFER+ : 
10 AE 7c sO - 08 O15 movCS #8. HOLDER_ID, REC_BUFFER+8 318 
000000006 00 01 FB the CALLS Ras SYS$PUT : 
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; Routine Size: $CODES + 0000 


+38 AX-11 Bliss-32 v4.0-742 
5 LOADSS.SRCJRDBSHR.B32;1 
L _—sRO, ~STATUS 
PUSHAB 
CALLS #1, SYSS$FREE 
BLBC 1 
CALLS @ GHEXESCLOSE_RDB 
LBC STATUS, 16$ 


oeye #1, RO 
Ht STATUS, RO 
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RDBSHR RDBSHR = Rights database loadable system servic 16-Sep-1984 01:48: AX-11 Bliss-32 V4.0-74 
v04-000 SYSSADD_ IDENT - add leant ities to RDB 182808-1 382 93:08:28 LOADSS. aeiaassun o3064 
3 4 1 2SBTTL * SYSSADD_IDENT = add identifier to RDB' 
3 5 } GLOBAL ROUTINE SYSSADD_IDENT (NAME, ID, ATTRIB, RESID) = 
: 339 5 1 !+4 
; 340 3 1! 
: ry i} : FUNCTIONAL DESCRIPTION: 
: 54 41 1! This routine creates the identifier of the specified name. 
> 344 4 1! If an explicit identifier code is given, it is used; otherwise 
3 re ti : the next available general code is used. 
: <3 0 45 1! CALLING SEQUENCE: 
3 re 8 re : SYSSADD_IDENT (NAME, ID, ATTRIB, RESID) 
; 50 0348 1 ! INPUT PARAMETERS: 
s 351 teh 1% NAME: address of the identifier name character 
3 25 0350 1! string descriptor 
3 0351 1! ID: (optional) identifier longword to associate with ‘name' 
3 re 8326 ; ATTRIB: (optional) attributes longword to grant to the identifier 
; 56 0354 1 =! IMPLICIT INPUTS: 
: 357 0355 1! NONE 
; 358 0356 1! 
3 59 0357 1 ! OUTPUT PARAMETERS: 
; 360 0358 1! RESID: (optional) address of a longword to return the assigned 
3; 361 0359 1! identifier 
3 306 0360 1! 
; 3% 0361 1°! IMPLICIT OUTPUTS: 
: 364 0306 . 3 NONE 
: 365 0363 1! 
$ 66 0364 1 ! ROUTINE VALUE: 
; 367 0365 1! success or failure status 
; 368 9308 1! 
; 369 0367 1 ! SIDE EFFECTS: 
; 370 0368 1! identifier record created 
: 371 0369 1! 
:- on Baa0 1 fe. 
a. tg 
: 74 b376 BEGIN 
; 375 037 
: 6 0374 LOCAL 
: 37 0375 LOC_NAME : REF VECTOR, ' Local copy of NAME 
; 378 B76 TH : LONG, ' output from EXESVAL_IDNAME 
; 379 O37 ADDRESS LONG, ' output from EXESVAL_IDNAME 
; 380 78 C_1D LONG, ' Local copy of 
; 381 +344 IDENTIFIER : LONG, ' identifier code to use 
; 0380 LOC_ATTRIB : LONG, ' Local copy of ATTRIB 
s 38 0381 LOC" RESID : LONG, ' Local copy of RESID 
: Re 0 ¢ STATUS LONG, ' general status value 
: 5 CLOSE : LONG. ' call to EXESCLOSE_RDB required flag 
; 386 RAB : $RAB pec ! 1 for record operations 
; 387 5 MAINT_RFA : $BBLOCK CRABSS_RFA), 
; 388 T RFA of maintenance record 
; +4 REC_BUFFER : SBBLOCK CKGBSK MAINT RECORD ° 
: 3 tT gengre record buffer 
; 391 NAME _BUFFER : SBBLOCK CKGBSS_NAME) ; 
: 392 0390 T name key buffer 
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LABEL 
RDB_OPEN; ! rights database is open in this block 


Validate parameters 


AME = .NAME; 
LO ATUS = EXESVAL IDNAME( .LOC_NAME; LENGTH, ADDRESS); 
NOT .STATUS TREN RETURN .STATUS: 
STRANSLATE (EXEST_ID_UPCASE, .LENGTH, .ADDRESS, ' ', KGBSS_NAME, NAME_BUFFER); 
t. Pot ib at UICSM_ID_FORM_FLAG) NEQU 0 
Nur (.LOC_ID GTRU UICSK_LAST_ID) THEN RETURN SS$_!VIDENT) 
(IF (.LOC_ID GTRU UICSK_MAX_UIC) THEN RETURN SS$_IVIDENT); 


LOC_ATTRIB = .ATTRIB; 
IF T.LOC ATTRIB AND NOT KGBSM_VALID_ATTRIB) NEQU 0 THEN RETURN SS$_BADPARAM; 


LOC_RESID = .RESID 
IF [LOC RESID NEQU’ QO AND NOT PROBEW (2REF(O), ZREF(4), .LOC_RESID) 


RETURN SS$_ACCVIO; 
Get the rights database open for write. 


SRAB_INIT (RAB = RAB, 
RAC = KEY, 
KRF = 0, 
KSZ = 4 
KBF = UPLIT (0), 
ROP = (WAT, RLK. ULK 
USZ = KGBSK_MAINT URECORD, 
UBF = REC_BOFFER 


STATUS = exe SoPEN RDB (0 RABLRAB$SW_ISIJ, CLOSE); 
IF NOT .STATUS THEN RETURN.” "STATUS; 


RDB_OPEN: 
“BEGIN 


First read the maintenance record to interlock the entire operation. 
STATUS = yh (RAB = RAB); 
if NOT .STATUS 
THEN 
EGIN 
FREE (RAB = RAB); 
LEAVE RDB_OPEN; 
CHSMOVE (RABSS_RFA, RABCRABSW_RFA], MAINT_RFA); 
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H 
ADDIDENT = ‘add Sdentitier to ADB’  ia-Sepei9be 12:60:59 ELOaDsseSReSADBSMR: 832+ 1 


Now see if the specified name is already in use. 


m——C00 
rt 


KGBSS_NAME; 

NAME _BUFFER; 

US = RAB ="RAB); 

STATUS THEN STATUS = SS$_DUPLNAM; 
STATUS NEQU RMS$_RNF 
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BEGIN 
SFREE (RAB = RAB); 
aoe RDB_OPEN; 


If an explicit identifier is given, see if it is in use. 
RABCRABSB_KRFJ = 0; 


RABLRABSB_KSZ) = 4; 


iF .LOC_ID NEQU 0 
THEN 


BEGIN 
RABLRABSL_KBFJ = LOC_ID; 

(RAB = RAB); 
IF .STATUS THEN STATUS = SS$_DUPIDENT; 
Lf STATUS NEGU RMS$_RNF 


BEGIN 
SFREE (RAB = RAB); 
LEAVE RDB_OPEN; 
END; 
IDENTIFIER = .LOC_ID; 
END 


Otherwise we have to select an identifier. 


ELSE 
IDENTIFIER = .REC_BUFFERCKGBSL_NEXT_1D); 
! Attempt to get the record pointed to by the new identifier. If it 


' exists, keep incrementing until a free identifier is found. Wrap 
} the identifier value when it overflows. 


RABCRABSL KBFJ = IDENTIFIER; 
WHILE 1 DO 
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BEGIN 
IF . IDENTIFIER GTRU UICSK_LAST_ID 
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REC BUF FERCKGBSL_NEXT 1D] = . IDENTIFIER + 1; 
ABTRABSB_RAC) =-RABST_RFA; 

CHSMOVE (RABSS_RFA, MAINT RFA, RABCRABSW_RFA)); 
STATUS = S$FIND™ (RAB = RAB); 

IF NOT .STATUS 

THEN 


$ 


REC_BUFFER[KGBS 
REC” BUFFERCKGBS 
CHSFILL (0 
CHSMOVE (K 


le system servic 1 


BEGIN 
IF STATUS EQLU RMS$_RNF 


GIN 
REE (RAB = RAB); 


IDENTIFIER = . IDENTIFIER + 1; 
END; 


Write back the maintenance record with an updated next identifier 
value. Note that while we increment the identifier here, it i 
not necessary to wrap it, since that is done in the check above. 


TATUS = SUPDATE (RAB = RAB); 
IF NOT .STATUS 
THEN 


BEGIN 
SFREE (RAB = RAB); 
LEAVE RDB_OPEN; 
END; 
IF .LOC_RESID NEQU 0 THEN .LOC_RESID = .IDENTIFIER; 
Finally create the new identifier record and write it. 


WoL DER?) 
RCKGBST_NAME)); 
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Rights databas 
IDENT = add 


END; 
Close the rights database if there is no image 


@ 
loadable system servic tbese -1 
eantites to RDB 1 =Sep-1 


IF .CLOSE THEN EXESCLOSE_RDB(); 
IF .STATUS 
THEN 
ELS RETURN SS$_NORMAL 
RETURN .STATUS; 
END; ! End of 
00000000 00000 P.AAA: 
OFFC 00000 
58 att $7 00 9E BNNs 
5E FF4 cE 43 0000 
51 04 ac O it 
00000000G 9F 16 0001 
6 50 DO 0001 
0 56 E€8 00018 
omg 1 pate 
20 62 1 2E€ 00021 1$: 
OC AE 20 002A 
046 =A 68 AC pO 000 3 
5 4 AE DO 000 
9° 1 3 6 
SFFFFFFF 8F 7 D1 00038 
97 11 bp F 
SFFFFFFF 06©6OOF 7 D1 00041 ge: 
36 18 8 48 5$: 
50 2224 F 3s * 
59 oc ac D p 2? 4$: 
FFFFFFFE 8F i) 4 
4 1 B28 
50 4 B 
4 6 
58 10 ac 00 61 5$: 
8 bs o008? 
t 33 Sooes 
A 06 B 
68 04 0 ; 9 
4 
50 ea 73 


Be 12:05:52 


routine 


»PSECT 
- LONG 

-EXTRN 
»PSECT 
- ENTRY 


AX-11 ta ee V4.0-74 
LOADSS.SRCJRDBSHR.B32; 


SYSSADD_IDENT 


SPLITS,NOWRT ,NOEXE,2 

0 

SYSSUPDATE 

SCODES ,NOWRT 2 

pyseeee IDENT, Save R2,R3,R4,R5,R6,R7,R8,- 


NAME, LOC_NAME 
Q#EXESVAL ~ 1DNAME 
RO, STATU 
TATUS, 1$ 


Legere (ADDRESS), #32, EXEST_ID_UPCASE, - 
#32, NAME BUFFER 


1D x 
oc _ID, R 
R7, #-1879048193 
ef. #1073741823 
#8740, RO 


ATTRIB, LOC_ATIRIB 
OC_ATfRIB, “#-2 


#20, RO 
RESID. LOC_RESID 
LOC _RESID 


R10 
#0, #4, (LOC_RESID) 
#12, RO 


rae 


0416 


<2 
2S 


k 8 
R - -Sep- 148: - . .0- 
vo4=000 REVSSADD IDENT” "add fdentitier co ROB’ ° lacsep-9Be fesc0s55 — ECDabss°SRESROBSHR=630; we 


<2 
5-4 


4 0007 RET ; : 
: V ‘ . 7 ° le Py : 
0044 28F 00 6E - 00 $e rt 6$ MOVCS #0, (SP), #0, #68, $RMS_PTR 0429 ; 
74 «AE 4401 F B MOVW #17409, SRMS_PTR : ; 
78 «AE 0006000 F 6 MOVL ATES SRMS_PTR+4 : ; 
DA AD 1 MOVE #1, $RMS_PTR+3 : ; 
oe AD 40 8F 9B MOVZ2BW #64, SRMS_PTR+32 : ; 
EO = AD 36 AE 9 MOVAB REC BUFFER, $RMS_PTR+36 : ; 
EC AD 0000" CF 9 MOVAB P.ARA, $RMS_PTR+Z8 : ; 
FO AD 4 9 A MOVB #4, SAMS_PTR+52 : ; 
F po A PUSHL SP + 0430 : 
7A AF F OO0A PUSHAB RAB+2 : ; 
: DD 000AB PUSHL #1 : ; 
E D4 OOOAD CLRL. = (SP) : ; 
000000006 9F ig. AF CALLS #4, @#EXESOPEN_RDB : ; 
if 0 Cm fost] | 
012¢ i} ooB¢ BRW 318 : : 
AE 9F OOOBF 7S: PUSHAB RAB + 0439 ; 
74 7$ 
000000006 90 1 FB 00 cg CALLS #1, SYSSGET : : 
03 8 FE p cc BLBS STATUS. 98 ; 0440 
OOFE 31 OOOCF 8$: BRW : ; 
6C AE cc «OAD 6 28 9008 9$: MOVC3 #6, RAB+16, MAINT_RFA + 044 ; 
7A AE —E 8A 0000 BICB2 #14, RAB+ + 045 ; 
78 AE 0010999 t C8 000¢ BISL2 #1048584, RAB+6 + 0454 3 
F AD 022 F 3 OOE4 MOVW #544, RAB+ 3: 0457 3 
EC AD OC AE 9E OOOEA MOVAB NAME_BUFFER, RAB+48 : 0458 ; 
74 AE OF OOOEF PUSHAB RAB + 0459 ; 
68 01 FB OOFe CALLS #1, SYSSFIND : ; 
56 50 00 000F MOVL RO STATUS ; ; 
4 56 9 O0r8 BLBC STATUS, 10$ + 0460 3 
6 94 gr A 000FB MOVZBL #148, STATUS ; : 
00018282 BF 6 D1 OOOFF 10$:  CMPL StAtUs, #98994 + 0461 ; 
7 1 0106 BNEG $ ; 3 
FO AD 4 BO 001 MOVW #4, RAB+5S2 + 0472 3 
7 D5 0010C TSTL = R? > 0474 : 
_ 25-18 0010 BEQL 12% ; ; 
EC AD ci AE 9€ 0011 MOVAB LOC_ID, RAB+48 + 0477 : 
4 AE OF ou PUSHAB RAB + 0478 
68 1 FB 0011 CALLS #1, SYSSFIND ; 
36 0 pO 0011B MOVL RO STATUS : 
& : NE BLBC STATUS, 11$ : 0479 
6 222c =F ¢ 1 MOVZ2WL #874 STATUS ; 
00018282 BF 6 D1 00126 118: CMPL status, #98994 + 0480 
AQ 12 0012D BNEG $ ; 
08 AE 5 p 1 MOVL 7, IDENTIFIER + 0486 
64 1 BRB 17$ + 0474 
08 AE 68 AE pO 135 128:  MOVL REC_BUFFER+60, IDENTIFIER + 0494 
EC AD 0 AE F 13A MOVAB IDENTIFIER, RAB+4 ; 0501 
SFFFFFFF © &F ar p F 13$: HPL Sete #-1879048193 > 0504 
08 AE 80010090 gf 06 149 MOVL #-2147418112, IDENTIFIER ; 0506 
4 AF fF 00151 14$: | PUSHAB RAB ; 050 
Bb Sigh aut ade SIRI : 
08 6 EB O015A BLBS STATUS, Wee : 0508 


495 bytes, 


; Routine Size: 


RDBSHR = Rights databas 
SYSSADD_IDENT - 


00018282 


AE 08 
AD 6C 


000000006 


000000006 


000000006 
000000006 


add 


dentif 


8F 


50 
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SCODES + 0191 


8 
~Sep-19 4 


~Oo 
-—o 


ww 


=— 


=o 
oO 


SNUSSSsFs . 
WOoUINnWwow oO 


OVQDNOYKPMNOYS PwWONW FOI YS FViwvnwno F V1 WOOOSG FOow 


A-AOM MO MMO—OMOOMM POO MAO MOnr—romo 


4 
o 
OVOOMIMM"OO"OOWDONM WVCVCIMMI "OMI "ONMOOM 


FOfLOUOMDOWM"OM"*MoOSO MOOCO0O00U™oow"wo— 


MMMMMNOOCTCVOOCOOWWWIO>r>> Pwo oO 
ADS WE-O S WO O-UI > OM Dende Do tee 


CMPL 
BEQL 


t 93: $8: 28 AX-11 Bliss-32 V4.0-7 


LOADSS.SRCJRDBSHR. B32; 
sTatus. #98994 


NTIFIER 
a3. 4 © lala REC_BUFFER+60 
MAINT_RFA, RAB+16 


mt) 
» SYSS$FIND 
+4 STATUS 
uo 19$ 
#1, SYSSUPDATE 
RO, STATUS 
STATUS, 19$ 
R10, 18$ 
IDENTIFIER, (LOC_RESID) 
IDENTIFIER, REC_BUFFER 
LOC_ATTRIB, REC~BUFFER+4 
#0,"(SP), #0, #8, REC_BUFFER+8 


#32, WAR BUFFER, REC_BUFFER+16 


#48, RABS 4 
REC BUFFER, RAB+40 
RAB 


#1, SYSS$PUT 
RO, STATUS 


R 

#1, SYSSFREE 
SHEXESCLOSE_RDB 
US, 21$ 


STATUS, RO 


woo 
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RDBSHR RDBSHR = Rights database loadable system servic 16-Sep-1984 01:48: AX-11 Bliss-32 V4.0-74 Page 17. 

y0=000 SYSSCREATE RDB - create agents data base 127888713 4 93:48:28 LOADSS.S CJRDBSHR B32; ° (4) | 

; 78 75 1 SSBTTL ' SYSSCREATE RDB = create rights data base’ | 

3 8 ! GLOBAL ROUTINE SYSSCREATE_RDB (SYSID) = | 

: §81 78 1 t+ | 

: ; 8 1 i | 

F ? 1 FUNCTIONAL DESCRIPTION: 

; 5 5 § 1! This routine creates a new rights database. After creation the 

; ene 5 1! database contains the maintenance record and records for the 

3 38s a3 ’ } environmental rights. | 

: 589 586 1 | CALLING SEQUENCE: 

; 290 sh | SySSCREATE RDB (SYSID) 

; 29¢ 0889 | | INPUT PARAHETERS: 

: rh 9590 1! SYSID: (optional) address of the quadword system identifier 

; 594 591 1! to store in the maintenance record 

; 595 236 1! 

: 298 S292 : CE es 

; 598 595 1! 

; 599 0396 1 ! OUTPUT PARAMETERS: 

; 600 0597 1! NONE ; R 

; 601 3208 1! 

3 4 504 : IMPLICIT OUTPUTS: 

> 604 0601 1! 

; 605 060 1 ! ROUTINE VALUE: 

g one 308? ' Status value of operation 

: 608 605 1! SIDE EFFECTS: 

; 609 BONS ¥! ALL active streams terminated, eights cache flushed, 

; 610 607 1! rights database created and opene 

; 611 608 1! 

3 ois 609 1 !-- 

Bit 3h ; BEGIN 

> 615 061 

; 616 $ei8 REGISTER 

; 617 0614 S ts ' size returned from EXESALOP1IMAG 

3 618 Oetg ADDRESS = 2; ! address returned from EXESALOP1IMAG 

: 620 61 LOCAL 

; 621 Oet8 LOC_SYSID : REF VECTOR, ' local Fopy of SYSID 

; 6 ; 1 STATUS : LONG, ! general status value 

; 6 be 0 CLOSE : BYTE ' close pignts database flag 

3; 624 621 MAINT_RECORD : $BBLOCK CKGBSK_MAINT_RECORD 

; 625 6 ; T buffér to build maintenance record 

3; 6 $ 6 FAB : SFAB_DECL, ' FAB to create rights database 

; 6 4 RAB : $RAB_DECL ' RAB for rights dasabose af 

3; 6 3 5 hy : S$XABREY_DECL, ' XAB for primary key (identifier) 

; 6 § KEY : SXABKEY_DECL, ! XAB for hoider key 

; 6 KEY2 : SXABKEY_DECL, ! XAB for name key 

3 63] 3 PROTECT : SXABPRO pect. ' XAB for file protection 

; 6 . 6 ARGLIST vector C ! argument List for EXESSET_RDIPTR 

; 63 630 INITIAL (1,0); | 

; 634 631 | 
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RDBSHR R = Rights database loadable system servic 16-Sep-1984 01:48: AX-11 Bliss-32 V4.0-74 Page 18) RDE 
v04-000 CREATE ORDB - create agonts data base 122868: 382 93:68:28 LOADSS. RCIRDBSHR.B32; . (4) v04 
; 635 LABEL 3 

; ° RDB_OPEN; ! rights database is open in this block : 

a ' . 

° 5 | Validate parameters 

; 640 3 

; 641 LOC_SYSID = .SYSID; $ 

3 org IF .LOC_SYSID NEQU 0 AND NOT PROBER (ZREF(O), SREF(8), .LOC_SYSID) : 

$ ere RETURN SS$_ACCVIO; ; 

3 ong } Do not open if file already exists ; 

; 648 3 

; 649 P SFAB_INIT (FAB = FAB : 

; 650 P FNM = 'RIGHTSLIST', ; 

; 651 p DNM = ‘SYSSSYSTEM:.DAT', 3 

3 636 F FAC = G 3 1 
; 633 SHR = (GET, PUT, DEL, UPD) ); ; 
; 655 STATUS = SOPEN(FAB=FAB); 3 1 
; 626 If .STATUS TH 3; 1 
; eet RETURN RMS$_FEX; 3 ! 
: 273 Allocate RDI if it has not been allocated already : ! 
; 661 3 1 
; 666 IF .CTLSGL_RDIPTR EQLU 0 $1 
; 66 THEN 3 1 
3; 6 BEGIN 3 7 
3; 665 STATUS = EXESALOPTIMAG (RDISS_RDIDEF; SIZE, ADDRESS); 3 1 
; 666 IF NOT .STATUS THEN RETURN SSS_INSFMEM; 31 
3; 667 apres? = .SIZE; 3 7 
3 668 ARGLISTC1) = .ADDRESS; 31 
; 669 STATUS = SYSSCMKRNL(EXESSET_RDIPTR, ARGLIST); 3 1 
; 670 F NOT .STATUS THEN RETURN .STATUS; 3 7 
3; 671 0668 CHSFILL (0, RDISS_RDIDEF-4, .CTLSGL_RDIPTR+4); . 4 
a: 0690 ee 4 
; 674 ea ' Else Close out all active streams to the rights database 3 1 
: 675 b67¢ ' 31 
3; 676 7 | 3; 1 
3; 677 674 ELSE 3 
Of of EXESCLOSE_RDB(); | 
; 680 58 ! Now set up the FAB and XAB‘s and create the file. 3 | 
; 681 o78 ! 3 | 
; 68 67 | 3 | 
; 68 P 0 SFAB_INIT (FAB = FAB 3 | 
3 684 P 0681 FNM = 'RIGHTSLIST’, 31 
; 685 P Boge DNM = ‘SYSSSYSTEM:.DAT’, | : | 
; 686 P ORG = IDX, 3 | 
3; 687 P 0684 RFM = VAR 31 
; 688 P 0685 MRS = KGB K_MAINT_RECORD, 31 
3; 689 P 06 § BKS = 2048, 3 | 
; 690 P XAB = KEYO, : | 
; 691 P 0688 FOP = (CBT, DFW), | § | 

| 
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v04-000 
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; 69 P FAC = (GET, PUT, DEL, UPD), 
: 693 P SHR = (GET, PUT, DEL, UPD) 
695 FABLFABSV _UNA _MODE] = PSLSC_EXEC; 
697 P SXABKEY_ INIT as 
698 P = KEYO, 
99 P XREF 
00 P KNM = sErtE LIT BYTE ('IDENTIFIER "), 
701 P POS = $BYTEOFFSET (KGBSL_IDENTIFIER), 
70 P Siz = 
70 P DTP = Bic, 
704 P FLG = DUP 
705 P NXT = KEYS 
706 ); 
707 
708 P SXABKEY_INIT ( 
709 P XAB = KEY1, 
1 P KREF = 1, 
P KNM = UPLIT BY TE ("HOLDER '), 
P POS = $BYTEOFFSET (KGB$Q_HOLDER), 
P S12 = 8 
P DTP = STG 
P = (DUP, NUL, CHG), 
P = 0 
P = KE 
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= KEY2, 


KREF = 
UPLIT BYTE ("NAME . 
SBYTEOFFSET (KGBST_NAME), 

KGBS$S E, 


si¢, ~ 
(NUL, CHG), 
PROTECT 


VuVvVVVVUVUUUD 


o 
~ 
vw 


RIPDPIPIPIHAALPIPIPIDIPUPDPIPIPYNIPINIPINADPYININIPINIAPINIAINIAIPIPIPIPIPIPIPIPIPIPIPIPIPUPIPOPONIPOPIPOPININY 
Mm mt wn 
i S 
x 
m 
< 
' 
— 
z 
— 
“4 22m 
*x<cr 
~ -—ro 
=< 
™~ 
—o 
ee 


. 
oe 
. 
° 
. 
c 
. 
o 
. 
. 
. 
° 
. 
. 
. 
. 
7 
e 
. 
- 
~ 
o 
. 
” 
° 
e 
. 
. 
. 
o 
> 
o 
7 
. 
. 
. 
o 
os 
. 
- 
° 
. 
- 
. 
e 
. 
. 
° 
oe 
. 
o 
- 
o 
. 
a 
. 
a 
o 
. 
° 
e 
. 
7 
- 
e 
. 
e 
. 
o 
. 
e 
co 
. 
- 
. 
o 
o 
. 
ao 
. 
o 
7 
a 
. 
a 
+ 
om 
- 
. 
. 
- 
. 
. 
. 
. 
° 
. 
a 
. 
* 
- 
o 
. 
2 
. 
° 
. 
f 
. 
* 


P 07 SXABPRO_INIT ( 
P 07 XAB = PROTE 
34 P 07 PRO = CAVED. "auep. R, R), 
5 Pp , VIC = (1,4 
7 7 
8 7 IF .CTLSGL_IMGHDRBF EQLU 0 
39 7 HEN 
740 7 EGIN 
741 738 CLOSE = 1; 
74 739 FABLFABSV_PPF) = | 
74 740 
74h 741 | 
745 746 CLOSE = 
74 7% STATUS = scrcre E (FAB = 
a7 746 IF NOT .STATUS THEN RETURN’ ératus: 


9 
ROBSHR RDBSHR = Rights database loadable system servic ihese -1984 01:48: AX-11 Bliss-32 V4.0-74 Pa 20. 
yOe=000 en - create late data bese 14- g00- 1382 Oi 38 AUADSS SREIRDBSMIRB3504 OD 
: 148 74e 3 ROB_OPEN | 
: H 148 CTL GL LRDIPTRCRDISL_IFI_WRITE] = .FABCFABSW_IFIJ; 
: i i } Now set up and connect a RAB, and write the maintenance record. 
: 755 ? 
: 756 P 07 : SRAB_INIT (RAB = RAB, 
2: ees Resch 
4 = 
: 759 P 0796 RBF = MAINT_RECORD 
: 760 P 079 RSZ = KGBSK-MAINT_RECORD 
: 78) $785 . | 
: 70 0760 STATUS = $CONNECT (RAB = 
> 764 0761 IF NOT .STATUS THEN AVE'R 
; 165 0768 SECTOR tereser _RDIPTR RDISL_ Dae Picea, 0] = .RABCRABS$W_ISIJ; 
: 767 0764 CHSFILL (0 KCBS MAINT cRECORD MAINT_RECORD) 
> 768 0765 CHSMOVE ( (KGBSS vel BYTE C"SSRRINTENANCE _RECORD '), 
: 769 0766 ay, KGBST™ _NAME | 
: 770 0767 IF LOC. sveiD Tee so 
: 7 0769 mm CHSMOVE (KGBSS_SYS_ID, .LOC_SYSID, MAINT_RECORDCKGB$Q_SYS_IDJ) 
: 77% 0771 SGETTIM (TIMADR = MAINT -RECORDEKGBSG _SYS_IDJ); 
> 775 O77e MAINT_RECORD(KGBS$W_LEVEL] ="KGa$K_LEVEL1; 
: 776 O78 MAINT_RECORDCKGBSL_NEXT_ID) = BcSK TPeRSt 1D; 
: 778 0775 STATUS = S$PUT (RAB = RAB): | 
; 779 0776 IF NOT .STATUS THEN LEAVE RDB_OPEN; 
: 781 0778 ! Create records for the environmental rights 
: $780 
: 784 0781 RABCRABSW_RSZ) = KGBSK_IDENT_RECORD; 
: 786 O788 j MAINT RECORD(KGBSL» IDENTIFIER] = KGBSK BATCH_ID; 
: 787 0784 CHSMOVE (K KGBSS_NAM UPL YTE ("BATCA "), 
: 788 0785 RECORD KEBSTe _NAME}); 
: 789 0786 STATUS = SPUT TR RAB RAB); 
; as tht IF NOT .STATUS THEN LEAVE RDB_OPEN; 
me. wer 789 MAINT_RECORD KCBS IDENTIFIERD = (SGBSK DIALUP_ID; 
: 79 7 CHSMOVE (K KGBSs UPL (*DIALOP "), 
: 794 791 RECORD KGBSTON AME) 
: 795 0798 STATUS = SPut NTR RAs RAB); 
; 296 0793 IF NOT .STATUS THEN LEAVE RDB_OPEN; 
: 798 795 NT RECORD ens IDENTIFIER = KGBSK INTERACTIVE _ ID; 
: 799 796 VE ( PLT Eo INTERACT "), 
: 800 79 RECORD Gast. att 
: 801 798 STATUS = SP i TRS RAB); 
: 9 199 IF NOT .STATUS THEN. LEAVE RDB_OPEN; 
; 804 01 MAINT RECORDCKGBSL IDENTIFIER] = KGBSK LOCAL. 1D; | 
; 805 0802 CHSMOVE (KGBSS_NAME, UPLIT BYTE (‘LOCAL *), | 
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RDBSHR 
yo0 000 create rights data base 


SRR RRR REESE 


SYSSCREATE_RDB = 


OFFC 00000 
58 000° CF 9E 0000 
2 000080006 60 9E 8009 
E FDEC CE 9E 0000 
dD Bat 
Of AE 04 1 
58 4 af DO 0001 
59 04 Q001C 
58 b Oak 
of 13 000 
D6 00022 
68 08 00 96 0024 
04 12 00028 
50 OC 00 Q002A 
3 $08 Dd 
0050 = &F 00 6E 00 2c 000 3 
FF70 CD B88 
FF70 §=6CD 5003 8F BO 00038 
g6 AD OFO2 8F BO O003F 
FAD 02 90 00045 
9C = AD 6B 9E 00049 
AO AD - AB 43 00040 
ASAD OFOA 8F 8 Boas 
FF70 «CD OF Boos 
000000006 00 gt FB B86 
56 0 4! Bape 
08 56 £9 00066 
50 00018282 8F 4 BR0e? 
4 00070 
000000006 9F D5 00071 
44 is 0077 
51 38 D0 00079 
000000006 9F 1 4 
56 0 Oo 8 
98 6 8 
0 0124 i .’ 8 
62 1 D6 
04 AE 2 DO 51 
E 0D 3 
000000006 8F DD 9 
000000006 9F 3 F 9D 
36 D AG 
0 8 4 Av? 
02 AA 
50 000000006 9F 00 O00AD 


RDBSHR = Rights database loadable system servic 1b-sep-19 4 
14-Sep-1984 


iS 


18: 


2$: 


3$: 


ASCII 


13:20:88 


Ax-11 Oi iets 
LOADSS.SRC 


\REMOTE 


SYSSOPEN, SYSSCREAT 
SYSSCONNECT, SYSSGE 


SCODES,NOWRT ,2 


SUSSCREATE R08, Save R2,R3,R4,R5,R6,R7,R8,- 


10,R11 
P.AAB, R11 
SYSSPUT R10 
"> 2(SP5, SP 
ARGLIST+4 
SySID, LOC_SYSID 
LOC_SYSID 
i$ 
R9 
#0, #8, (LOC_SYSID) 
#i2, RO 
#0, (SP), #0, #80, 
#204 3, $RMS_PTR 
#38 


42, $RMS_PTR+22 
#2. SRMS_PTR+ 


P " 
#3850, $RMS"PTR 


AB 
#1, SYSSOPEN 
5 Pe 


STATUS, 2$ 
#98946, RO 
@A#CTLSGL_RDIPTR 
#56, R1 
a@#EXESALOP1 IMAG 
STATUS 
STATUS, 3$ 
» RO 


92 
ZE, (ADDRESS) 
DR 


2 
I 
p ESS, ARGLIST+4 


Y>PuyN BOYD 
oO 


#EXESSET_RDIPTR 
ie. a4SYSSCMKRNL 
RO, STAT 


U 
STATUS, 43 
@ACTLSGL_RDIPTR, RO 


32 V4.0-74 


RDBSHR.B32; 


E 
TTIM 


$RMS_PTR 


Pete Se Se Se Se Se Se Ge Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se 


] 


| 


P 22. 
cna (4) | 


| 
| 
| 
| 
| 
| 
0576 
0611 


F 9 

RDBSHR RDBSHR = Rights database loadable system servic 16-Sep-1984 748: AX-11 Bliss-32 V4.0-74 Page 23 ROE 
v04-000 SYSSCREATE RDB = create rights data base 12286871388 93:08:23 LOADSS. SRC IRDBSHR B32; . 5 vos 
34 00 3 00 2C 00084 movcS #0, (SP), #0, #52, 4(RO) : : | 
OOF 11 boss BretséGS ; 0659 # 
000000006 9F ' FB OOOBD 5$: CALLS #0, @#EXESCLOSE_RDB + 0675 ; | 
0050 =&F 0 bE - 6 2c ch 6$: MOVCS #0, (SP), #0, #80, S$RMS_PTR : 0691 ; 
FF70 CD 30 : F B cE MOVW #20483, SRMS_PTR : 3] 
FF74 CD 00200020 BF DO 000D MOVL #2097184, $RAS_PTR+4 : ; 1 
86 AD OF OF F : ODE MOVW #3855, SRMS_PTR+22 : ; | 
D AD 9 £4 MOVB #32, $RMS PTRs29 : : 1 
8F AD 9 £8 MOVB #2, SRMS_PTR+3 : : | 
94 AD OOF CE 3 E MOVAB KEYO, S$RAS_PTR+36 : : 1 
9¢ AD 19 AB 9E OOOF MOVAB P.AAD, SRMS_PTR+44 : 3] 
AO AD : AB 9 OF MOVAB P AAE $RMS~PTR+48 : : 1 
AS AD OO4OOFOA 8F DO O00FC MOVL #4198154, SRMS_PTR+52 ; : | 
AE AD 94 00104 CLRB SRMS_PTR+62 ; : | 
BA AD 02 00 1 £0 00107 INSV #1, BO, #2, FAB+74 3 069 '. 
004C 8F 00 6E nes 00 2c 9100 MOVCS #0. (SP), #0, #76, SRMS_PTR : 070 : } 
OOF8 CE 4C15 8F B0 Sort? MOVW #19477, SRMS_PTR : 3 | 
OOFC CE OOAC CE i OE MOVAB KEY1, $RMS_PTR+4 : : | 
O10A_ CE 0401 &8F B80 001 MOVw #1025, $RMS _PTR+18 : : 
FFOE CD 04 90 0012¢ MOVB #4, $RMS_PTR+46 ; ei 
FFI CD 32. AB 9E 00131 MOV P.AAF, $RMS_PTR+56 : : | 
004c BF 00 CF ac | Ok 2e R018? movcS #0, (SP), #0, #76, SRMS_PTR ; 0715 : | 
OOAC CE 4C15 BF 80 0014 MOVW #19477, S$RMS_PTR : 7 1 
00B0 CE 60 AE 9E 00148 MOVAB KEY2 $rms_PTR+4 : : | 
O08 CE 0 BO OO14E MOVW = so#?, Sris_PTR+18 F 2] 
00C CE 1 90 0015 MOVB #1, S$RMS"PTR+ ; : 1 
OOCA CE 08 BO 00158 MOVW a8. SRMS_PTR+30 ; 3] 
OODA CE 08 90 0190 MOVB #8, S$RMS"PTR+46 : :] 
00E4 (CE 52 AB 9E 162 MOVAB P.AAG, $RMS_PTR+56 ; : 1 
004c BF 00 6E go 20 2 00168 movcS #0, (SP), #0, #76, SRMS_PTR ; 0727 i | 
60 AE 4C15 BF BO O19) MOVW #19477, SRMS_PTR : 71 
64 AE 08 AE 43 0177 MOVAB PROTECT, $RMS_PTR+4 : : | 
if AE 0 8 O17 MOVW 46, SRMS_PTR+T : 2] 
77 —oAE 0 180 MOVB SRMS-PTR+2 : : 1 
7E AE 1 80 01 MOV 18. SRMS_PTR+30 ; 3: 
OO8E CE 20 90 0188 MOVB 32° $RMS“PTR+46 ; 3 
0098 CE 72 AB 3 01 p OV P.AAH, $RAS_PTR+ : : | 
0058 «BF 00 6E : 00 C 0195 movcS #0, (§P), #0, #88, $RMS_PTR : 0733 : 
08 AE sais F BO 0019 MOVW #22547, $RMS_PTR : 3 | 
10 AE FE 00 F BO OO1A MOVW #4608, SRMS~PTR+8 : 3 | 
14 AE 0001 04 F D 1A MOVL #65540, SRMS“PTR+12 ; 3 | 
000000006 9F D5 00180 TSTL Q#CTLSGL_INGADRBF + 0735 3] 
A 188 BNEQ % : 2 | 

57 1 1B MOVB #1, CLOSE : 0738 ; 

FF76 CD 4 18 BISB2 #4. FAB+6 : 0739 : 

é 1C BRB $ ; 07 : 

34 1C2 7$: CLR CLOSE > 074 ; 

FF70 CD OF OO1C4 BS: PUSHAB F > 074 ; 

000000006 90 1 FB 001C8 CALLS #1, SYSSCREATE ; F 

$ 0 dO OO1CF MOVL RO STATUS ; : 

0 6 £ 1D2 BLBS STATUS, 9% > 0744 ; 

| 


RDOBSHR RDBSHR = Rights database loadable system servic 18-50 Sep-1984 AX-11 Bliss-32 V4.0-74 p 4! 
voe=000 SYSSCREATESRD RDB = create fonts _ base z 1 et 7 93: 25; 23 LOADSS SRE RDBSNR B32, Pash ail 
31 10 BRw 16$ 3 
= 50 000000096" $F "9p 5 1b8 9$: ROVE a4CTLSGL RD RDIPTR, RO : 0748 
0044 8F 00 6E croc OR 2 QOIES moves #0, cp}. RD. 068, $RMS_PTR : 0758. 
FF2C CD 4401 =‘ 8F 0 1EF MOVW #17409 sams PTR : 
mee Bag HORE MPa tas Sts, i ] 
aa CD cD AD 9E of MOVAB mA INT RECORD. * SAMS _PTR+40 : 
FF68 CD FF CD 3 MOVAB FAB, SRMS_PTR+60 ; 
FF2C CD 9F 0020 PUSHAB RA + 0760 
000000006 90 1 F 1 CALLS SYS$CONNECT : 
4 08 ie BLBe Rd: STA 4 : 0761 
« 50 9 000000906 oF 1 iF HOVE SacTL SG, AD RDIPTR, RO ; 0762 
0040 = 8F 00 a ~ 00 2¢ 0 MOVCS #0, tip) yi #64, MAINT_RECORD + 0764 
DO AD 0092 cB 20 28 : 5 moves #32, P.AAI, MAINT_RECORD+16 ; 0766 
F4 OAD 68 08 2 0 it mOVCS a, (LOC_SYSID), MAINT_RECORD+52 + 0769 
F4 AD OF 00 46 10$:  PUSHAB MAINT srSEeeiae : 0771 
er 101 a OF On5sh 118: Rov’ «sed? AATny Reconess : 077 
FC AD 80019000 F DO 00256 “MOVE halter 112, MAINT _RECORD+60 : 077 
FF2C CD 9F 0025 PUSHAB RAB : 0775 
6A 1 FB 0026 CALLS SYS$PUT : 
56 0 DO 0026 MOVL RO: Ty ; 
FFOE Gb 8 £8 bases mov srAvUs 4 Oras 
6 AD 80000001 &F 0 0 10 MOVL @#- Meee MAINT_RECORD : 0783 
DO AD 0082 (CB 0 ; 0 7 MOVC3. #32, P.AAJ, MAINT_RECORD+16 > 0785 
FF2C CD SF OO27F PUSHAB RAB” : 0786 
6A 1 FB 00283 CALLS SYSSPuT : 
6 8 PD 80588 128: bree no: : 0787 
CO AD 80000002 i : 0 * Bends OVL iia MAINT_RECORD : 0789 
DO AD 00D2 «CB 0 ; 94 MOVC3 P.AAK, MAINT RECORD+16 3; 0791 
FF2C CD SF 00298 PUSHAB : 0792 
A 1 F 9 OF CALLS SYSSPUT F 
54 4 08 b5a8 BLBt ny ? 0793 
c9 AD 80000003 &F 0 A MOVL ria, MAINT_RECORD ; 0798 
pO AD OOF2 CB 0 ; 8 ve3 P.AAL, MAINT _RECORD+16 : 079 
FF2C CD SF 0008 PUSHAB : 0798 
A 1 F BB CALLS ~ SYS$PUT : 
Se 9 pb Bose HOWL STAT fa 
£9 AD 80000004 F 3 C4 MOVL ba Die 644, MAINT _RECORD : 0801 
pO «AD 0112 CB 0 ; ¢ MOVC3 P.AAM, MAINT_RECORD+16 : 0803 
FF2C CD SF 000d PUSHAB > 0804 
A 1 F D CALLS . SYS$PUT : 
ss 4 08 BD 138: «BEBE RO, Ais Bs : 0805 
AD 80000005 &F 0 nae eats iC 643, MAINT_RECORD : 0807 
0183 CB 0 of E MOVC3 +35. P.AAN, MAINT_RECORD+16 : 0809 
| 


ee ee ee eee ee ee) 


Be Be Se Se Be Be Se Se Se Ge Be Se Ge Ge Be Be Se Se FH Se SH Se Be Se Se Se Se Se Se ee SH Se Se Se Se ae Se Se ee Se Se ee Fe ee See Se Se Se Se tease Se Se ee teas 


yh oe 
sso 


RDBSHR RDBSHR = Rights database loadable system servic 
V0e 000 SYSSCREATESRD RDB = create rights data base 


P FF2C oF 
86 


1F 
£9 AD 80000006 
01 cB 
FF2C 


1984 01:4 AX-11 Bliss-32 V4.0-74 P 5 
1984 3: ib: 39 LOADSS.SRCJRDBSHR.B32; Me: (B 


PUSHAB RAB ; 0810 
LLS #1, SYSSPUT 
RO, STAT 


abs 642, MAINT_RECORD 
P.AAO, MAINT_RECORD+16 


— 
=~ 
ed 
Sro> 
<o< 
o 


*WOOOW 


DO = AD rf 
CALLS SYSSPUT 


BLBC fe Ye 
MOVL TAT TU 


15$: BLBC os 
CALLS ralext CLOSE_RDB 
168: HOVL STA 


a 


5 


CON OOo—-TOo"Ceo-o 


000000006 f 


22 
nx 


oo WNOMO"OrVvomon 


; Routine Size: 809 bytes, Routine Base: S$CODE$S + 0380 


oo #2 2 2 42 8 8 28 2 8 ee 


“” 


FS 


3 


<Zz 
vw 
ez 


Wr Ow” 


a] 


(Co CD CD CD CD CD CD CD CD CD 


CD00 CD 
Soe 


Pa oe 


WAWNAANIwWwinororonoern 


OONAVNE WO OOO 


(G2 Cd Gd Gd Gd Cd CD CD CD CD 
DAMMAM 


WN “OC OCONOulwnN—o 


sere 


ooo 
ae es 
Sess 
WN —O OONOUES WN 0 OONOUS WO 
POPOPoMOPOPOMOMMOMOPONOPOPOROPOIY 28 3 tt 0 tt se 


G2 C0 C0 GD GD CD: 
NO 
Qo 02 00 09 Co Od 0D CD CD CD ~ 
~~ ao 
oO —O0Onou 


SINR Ss 
NN 
NOUS 


ee i | 


—-o 


9 
= Rights database loadable system servic 1-5 ep-1984 01:4 AX-11 Bliss-32 V4.0-74 
ND_HOLDER = search RDB tor ident holde 14-$ et 7 9}: 28: 33 LOADSS. SRCIRDASHR.B32: 
ZSBTTL * SYSSFIND_HOLDER RDB for ident holders’ 
GLOBAL ROUTINE SYSSFIND "HOLDER tise HOLDER, ATTRIB, CONTXT) = 
lee 


FUNCTIONAL DESCRIPTION: 


This routine searches the rights database for eb holders 
ot specified dentifier, and returns their identifier 
utes. 


CALLING SEQUENCE: 
SYSSFIND_HOLDER (ID, HOLDER, ATTRIB, CONTXT) 


INPUT PARAMETERS: 
ID: scones tier senquere whose holder records 
re to 
CONTXT: (optional) address of a Lenquerd containing the 
record stream context. initially should be zero, 
value output on first call, value input on 
subsequent calls. 


and 


OUTPUT PARAMETERS: 
HOLDER: (optional) address to return the holder id quadword 
ATTRIB: (optional) address to return the attributes longword 


eee LD cites 
ROUTINE VALUE: 
Status of operation 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
sitet *' teres 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
SIDE yh 
i 
le 


BEGIN 
LOCAL 
LOC_ID LONG, ' Local copy of ID 
LOC_HOLDER : LONG, ' local copy of wrete 
LOC_ATTRIB : LONG, ' local cop ATTRIB 
LOC_CONTXT LONG, ' local te . coer 
STATUS : LONG, ! qnerat status value 
CONTINUE : LONG, : ind areat re co noe RE Te 
CLOSE : LONG, : cat te EX a RDB required flag 
R : SRAB_DEC : i 
REC_BUFFER : SBBLOCK KGBSK IDENT “RECORD 
T record buffer to read records 
LABEL 


RDB_OPEN; ! rights database is open in this block 


~oO 


905 


seesssssssessses 


WDOODODODOODOOOOOOOOOOODODOOVOVOO 


WAIWIRonororofnononononon 


REAM SOS NOUEUIN SOOO NOUE WMO 


FE 
moO 


VvouvvVvvUvU 


OOOOWOMO@O@O@C@ <W 
Oo 


Wr 


BNEAE 


99 


SHR = Rights database loadable svetes servic 18. 
SSFIND_HOLDER = search RDB f 


$ 
or ident holde 14-$ 


Validate parameters 
LOC_ID = .1D; 
TX -Loc_ib AND UICSM_ID_FORM_FLAG) NEQU 0 
xe (IF (.LOC_ID GTRU UICSK_LAST_ID) THEN RETURN SS$_IVIDENT) 
(IF (,LOC_ID GTRU UICSK_MAX_UIC) OR (.LOC_ID EQL 0) THEN RETURN SS$_IVIDENT); 


LOC_HOLDER = HOLDER: 
IF [LOC_HOLDER NEQU 0 AND NOT PROBEW (ZREF(O), SREF(8), -LOC_HOLDER) 


RETURN SS$_ACCVIO; 


LOC_ATTRIB = .ATTRIB; 
IF .LOC_ATTRIB NEQU 6 AND NOT PROBEW (ZREF(O), ZREF(4), -LOC_ATTRIB> 


RETURN SS$_ACCVIO; 


LOC_CONTXT = .CONTXT; 
IF .LOC_CONTXT NEQU 6 AND NOT PROBEW (ZREF(O), %REF(4), -LOC_CONTXT) 


THEN 
RETURN SS$_ACCVIO; 


! Open the rights database for reading, Record whether this is an initial 
call or a continuation by checking if the context is zero or not. 
CONTINUE = (IF .LOC_CONTXT NEQU 0 THEN ..LOC_CONTXT NEQU 0 ELSE 0); 


SRAB_INIT (RAB = RAB, 
RAC = KEY, 


LOc_ID, 

(WAT, NLK, LIM), 
KGB$K_IDENT_RECORD, 
REC_BOFFER 


): 
STATUS = EXESOPEN_RDB (.LOC_CONTXT, 0, RABCRABSW_ISIJ, CLOSE); 
IF NOT .STATUS THEN RETURN [STATUS; 


RDB_OPEN: 
BEGIN 


! On an initial call, do an indexed $GET to position to the identifier 
record. 


x 

” 

~ 
nhunnnnnnn 


IF NOT .CONTINUE 
THEN 


(RAB = RAB); 
U RMS$_RNF THEN STATUS = SS$_NOSUCHID; 


oP a oT 
> 
~ 
c 
a 


71986 92:40:32 — ULGapss"sneSapeshn-B3e; 


SGET (RAB = RAB); 
4 STATUS EQLU RNSS_ EOF OR .STATUS EQLU RMS$ -OK_LIM 
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RDBSHR RDBSHR = Rights database loadable system servi -Sep-1984 01:48: AX-11 Bliss-32 V4.0-74 e 
-000 SYSSFIND_HOLDER = search RDB ter” dent holde ix. at 7 93:25:38 LOADSS.SR RCIRDBSHR. B32; ~— (3 
3 939 THEN 
944 94 3 
945 94 EXESSFINISH RDB (.LOC_CONTXT); 
| 94 LEAVE RDB_OPEN; 
4 94 END; 
ft _ 
950 ae8 ' Switch to sequential mode and read the next holder record, and 
5 38 return the data items. 
d, 
re 29 RABCRABSB_RAC] = RABSC_SEQ; 
5 STATUS = 
$ 
2 
35 


wooowownovowon 


OOOOOOOOOOODO 


: 9% 4 

; 94 ; 

: 9 4 

: 9 

: 9% 

: 9 

: 5 

; 54 STATUS = SS$_NOSUCHID; 

; 55 IF NOT .STATUS 

; 960 36 THEN 

; 362 4 ¢ Pe OeSFINISH RDB (.LOC_CONTXT); 

; 308 59 4 LEAVE RDB_OPEN; 

; 964 960 ENDS 

; 962 IF .LOC_HOLDER NEQU 0 

: eo 0368 THEN 

: 968 964 CHSMOVE (KGBS$S_HOLDER, REC_BUFFERCKGBS$Q_HOLDER], .LOC_HOLDER); 
3 5 4 3309 if LOC. ATTRIB NEQD 0 

; 971 0967 .LOC_ATTRIB = .REC_BUFFERCKGBSL_ATTRIBUTES); 
: 37§ 969 STATUS = SS$_NORMAL; 

: 974 970 END; 

: 975 0971 

; 976 O38 ! Close the rights database if there is no image 

>; 977 97 i 

; 978 974 

: 979 975 2 IF .CLOSE THEN EXESCLOSE_RDB(); 

; 980 97 RETURN .STATUS 

; «981 97 END; ! End of routine SYSS$FIND_HOLDER 
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OFFC 00000 ENTRY SYSSF IND HOLDER, Save R2,R3,R4,R5,R6,R7,RB,~; 0826 
SE 80 AE 9E 00002 MOVAB “TBE, : 
04 AE 4 aC 06 MOVE , LOC. io” ; a88s 
SFFFFFFF © 8F 04 Ag p CHP 9¢_1D, #-1879048193 ; 0889 
OF 18 9001 BRB $ : 
SFFFFFFF 06 8F 04 AE D1 i 18: CHPL LOC_1D, #1073741823 ; 0891 
04 AE 3 TSTL , C_1D : 
g i 4 BNEQ 3 
50 2224 BF 3¢ 2%: MOVZWL #8740, RO ; 
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RDBSHR = Rights database loadabl 


SYSSF IND_HOLDER search RD 


5A 


9b 12:48:82 
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ODMW—GC OT NOMMO "OO OOCOOOTOOW wo-9709—-c9OMo0o “00 —-9 00 —00—]—0 09 9 “00 -"0°090C00 


COU CVWOFNOOoweeaqT,r,r>,> yee ee tee 8 ee ey SS 


RON &—m Wo" "CO > aM 


MOMMA O—- MoooL~vm 


LOADSS.SRC 


HOLDER. LOC HOLDER 
OC _HOLDER 


(SP) 
#0, #8, (LOC_HOLDER) 
ATTRIB, LOC_ATTRIB 
LOC ATTRIB 

$ 


R11 

#0, #4, (LOC_ATTRIB) 
CONTXT, LOC_CONTXT 
LOC_CONTXT 

3 


RO 

#0, #4, (LOC_CONTXT) 
#12, RO 

RO, 9$ 

(LOC_CONTXT) 

8$ 


CONTINUE 
CONTINU 


NUE 
#0, (SP), #0, #68, SRMS_PTR 


#17409, $RMS_PTR 
#1196082, “eines PTR+4 


mb +32 
BUFFER. "RAS, PTR+36 
its 19,48 sri Ris PTR?48 
ry “$RAS 

cLOs sé 

RABs 


) 
LOC COnTxT 

#4, QFEXESOPEN_RDB 
STATUS, 20$ 
CONTINUE, 128 
SYSSGET 


an 
TUS, #98994 


AX-11 at BL V4.0-74 
RDBSHR.B32; 


; 0922 


; 0923 
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RDBSHR = Rights database loadabl t i 
v04-000 SYSSFIND.HOLDER = search RDB for ident holde 
3C AE OOF E 
000000006 ee i 4 eS 
0001827A F § cf 
00018051 g 8 
: 21EC F Hs ! 1 
: DD 001 
00000000G 9F 9} i} : 
05 f 5 11 
ae ad: at 
A ae a 
39 08 Ar E 126 
ponent. © oS is ane 
04 00134 
; Routine Size: 309 bytes, Routine Base: S$CODE$S + 06A9 


-_—— 
soz 
te 
nw 
eaao 


208: 


71986 92:40:32 


PUSHAB 
LS 


AX=-11 Bliss-32 V4.0-74 
LOADSS.SRCJRDBSHR.B32; 


RAB 


fires. #98385 


#8684, STATUS 
STATUS, 168 


CONTXT 
“@#EXESSF INISH_RDB 


198 

(SP), 

Hb, R TBUFFERYS, (LOC_HOLDER) 
REC BU ‘SUFFERS, (LOC_ATTRIB) 

C 


ésE 
r SE 208 ose _RDB 
STATUS, RO 


re 


0951 


<z 
ow 


n 9 | 
ROBSHR RUBSHR = Rights database loadable system servic 16-Sep-1984 01:48: AX-11 Bliss-32 V4.0-74 Page 31 
v04-000 SYSSMOD_HOLDER - nodi ty holder record 197808-1382 93:48:28 YOADSS-SRe RDBSHR.B32; . (6) | 
5 983 978 1 XSBITL * SYSSMOD HOLDER = modify holder record! | 
$ ¢ 444 ! GLOBAL ROUTINE SYSSMOD_HOLDER (1D, HOLDER, SET_ATTRIB, CLR_ATTRIB) = 
i 3 aH) 1 is | 
: 988 9 5 | FUNCTIONAL DESCRIPTION: | 
; 43 . 5 1 This routine modifies the specified holder record. 
: 99 9 : 1 ' CALLING SEQUENCE: 
$ oer M 3 : SYS D_HOLDER (1D, HOLDER, SET_ATTRIB, CLR_ATTRIB) 
: 995 380 1 | INPUT PARAMETERS: 
; 996 ioe ID: identifier longword 
; 997 338 1! HOLDER: address of the holder identifier quadword 
; 998 993 1! SET_ATTRIB: (optional) longword containing the attributes to set 
; 999 994 1! into the holder record 
; 1000 0995 1! CLR_ATTRIB: (optional) longword containing the attributes to clear 
3 1304 843 : in the holder record 
; 1008 0998 1! IMPLICIT INPUTS: 
1008 1000 1 an 
> 1006 1001 1 ! OUTPUT PARAMETERS: 
am ied) 
> 1009 1004 1 ! IMPLICIT OUTPUTS: 
101% 1008] | _ 
; 1018 1007 1 ! ROUTINE VALUE: 
s HF Ve : Status of operation 
: 1015 1010 1 ! SIDE EFFECTS: 
3 1016 1011 1°! Holder record modified 
3; 1017 ISt¢ 1! 
3: 1018 1013 1 !-=- 
3; 1019 1014 1 
; 1020 1015 2 BEGIN | 
: iS , 1918 LOCAL 
3 10 : 1018 LOC_ : LONG, ' Local copy of ID | 
: 1024 1019 LOC_HOLDER : REF NEC TOR ' Local copy of HOLDER 
: 1025 1020 HOLBER : VECTOR C2), ! Local copy of holder id quadword 
3 3 § 1021 LOC_SET_ATTRIB : LONG, ' local copy of SET_ATTRIB 
31 1 § LOC_CLR_ATTRIB =: LONG, ' local copy of SURAT TRIS 
3: 1028 10 1D_ATTRIB : LONG, ' attributes of identifier 
3 1993 1024 TAT : LONG, ' general status value 
3; 10 1025 CLOSE : Sn ' call to GIF SCLOSE 008 required flag 
: 103) 10 § RAB : SRAB_DECL, ! RAB for fi § operations 
; 10 § 1 REC_BUFFER : $BBLOCK CKGBSK_IDENT_RECORD); 
: 103 1 3 T general purpose record buffer 
: 103s 1080 | 
> 10 1031 2 LABEL ae | 
; 193 ' 3 RDB_OPEN; ! rights database is open in this block 
; 1039 1034 2 ! Validate parameters 
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Rights database loadable system servic 1b-se -1984 01:48: AX-11 Bliss-32 V4.0-742 
$MOD HOLDER - modify holder record 1a-8ep-19 4 93:78:28 LOADSS. SRC IRDBSHR.B32¢ 1 
: 
LOC_ID = .ID; 
TF C-LOCID AND UICSM_ID_FORM_FLAG) NEQU 0 
ese" (,LOC_ID GTRU UICSK_LAST_ID) THEN RETURN SS$_IVIDENT) 
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(IF (.LOC_ID GTRU UICSK_MAX_UIC) OR (.LOC_ID EQL 0) THEN RETURN SS$_IVIDENT); 
LOC HOLDER = .HOLDER; 


IF NOT PROBER (ZREF(O), ZREF(8), ~-LOC_HOLDER) THEN RETURN SS$_ACCVIO; 
HOLDER_ID = .LOC_HOLDER of: 

HOLDER IDL1) = .LOC_ HOLDERL1J; 

IF -HOCDER_ID(03 GTRU UICSK_MAX_UIC OR .HOLDER_IDC1] NEQU 0 


THEN 
RETURN SS$_IVIDENT; 


LOC_SET ATTRIB = SET ATTRIB; 
IF T.LOC_SET_ATTRIB AND NOT KGBSM_VALID_ATTRIB) NEQU 0 THEN RETURN SS$_BADPARAM; 


LOC_CLR_ATTRIB = .CLR ATTRIB; 
IF T.LOC_CLR_ATTRIB AND NOT KGBSM_VALID_ATTRIB) NEQU 0 THEN RETURN SS$_BADPARAM; 


Get the rights database open for write. 


SRAB_INIT (RAB = RAB, 
RAC = KEY, 
KRF = 
KBF = LOC_ID, 
KSZ = 4, 
ROP = (LIM, WAT, RLK, ULK), 
UBF = REC_BUFFER 
USZ = KGBSK_IDENT_RECORD 


): 
STATUS = EXESOPEN_RDB (0, 1, RABCRABSW_ISIJ, CLOSE); 
IF NOT .STATUS THEN RETURN .STATUS; 


RDB_OPEN: 
BEGIN 


! Read and lock the ident record and save away its attributes. 


4 
STATUS = $GET (RAB = RAB); 
IF .STATUS EQLU RMS$_P’.; THEN STATUS = SS$_NOSUCHID; 
IF NOT .STATUS 
THEN 
BEGIN 


SFREE (RAB = RAD); 
LEAVE RDB_OPEN; 


N 
ID_ATTRIB = .REC_BUFFERCKGBSL_ATTRIBUTES); 
Read the holder records looking for the specified one. 
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as ech oe TIC TR Te enn eS PPT Tee ra ee Eee ose 33 


RABERABSY _ULK : 
RABLRABSE 
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cr 


t 
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v04-000 


$ 


0: 
RAC] = RABSC_SEQ; 


SS 


ET (RAB = RAB); 
EQLU RMS$_EOF OR .STATUS EQLU RMS$_OK_LIM 


lofelelelo) 


AB = RAB); | 
S = $S$$_NOSUCHID; 
DB_OPEN; 


ae 
= 


IF CHSEQL (KGBSS_HOLDER, HOLDER_IDCOJ, KGBSS_HOLDER, REC_BUFFERCKGB$Q_HOLDER)) 
EXITLOOP; 
END; 


' Now set and clear attributes as specified, but Limited by the ident 
record attributes. 


IF .LOC_CLR_ATTRIB NEQU 0 
THEN 


REC_BUFFERCKGBSL_ATTRIBUTES] = 
-REC_BUFFERCKGBSC_ATTRIBUTES] AND NOT .LOC_CLR_ATTRIB; 
IF gt OC SET _ATIRIG NEGU 0 


REC_BUFFERCKGBSL_ATTRIBUTES) = 
(.REC_BUFFERCKGBSL_ATTRIBUTES] OR .LOC_SET_ATTRIB) AND .ID_ATTRIB; 


STATUS = SUPDATE (RAB = RAB); 
bogs (RAB = RAB); 


Close the rights database if there is no image 


WALA IAI PROPOR 2 OOO 


IF .CLOSE THEN EXESCLOSE_RDB(); 
F_.STATUS 


HEN 
RETURN SS$_NORMAL 
RETURN .STATUS; 
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! End of routine SYSSMOD_HOLDER 


O3FC 00000 - ENTRY ZYSSAOS _MOLDER. Save R2,R3,R4,R5,R6,R7,R8,- : 0979 


oe ee ei c 


AC DOD 


S$ 
10 MOVAB = 8(SPS, SP 


14 PUSHL ; 1037 | 


ee ee ed od ed ed 
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RDBSHR RDBSHR = Rights database loadable system servic 16-Sep-1984 01:48: AX-11 Bliss-32 V4.0-74 Page 34 ROE 
y04=000 SYSSMOD_HOLDER = modify holder record a et 93:28:28 LOADSS.SRCJRDBSHR.B32; 6d) | v0é 
0B 1 17 BGEQ~—Séséd1S : 103 - 
SFFFFFFF © 8F E if 1 CMPL LOC_1D, #-1879048193 : 1920 | 3: 1 
me: ey Bids 
SFFFFFFF © BF E 01 00094 1$ CMPL = LOC_ID, #1073741823 > 1042 | ; 1 
A 1A B BGTRU : 5) 
gE D TSTL -LOC_ID ; | 2] 
1 F BEQL «6 4$ : | 3: 1 
50 08 AC OD 1 2$: MOVL HOLDER, LOC_HOLDER + 1044 3 1 
60 08 00 0 035 PROBER #0, #8, (LOC_HOLDER) 3 1045 3] 
04 12 00039 BNEQ : : 1 
50 0c p 90 B MOVL #12, RO : 31 
4 E RET : 3 1 
7C «OAL 60 DO OO03F 38 MOVL (LOC_HOLDER), HOLDER_ID 3 1046 3} 
FC OAD 04 AO dO 0004 MOVL 4(LOC_HOLDERS HOLDER 1D+4 + 1047 3 1 
SFFFFFFF © BF 7C AE D1 0004 CMPL -HOLDER_ID, #1073741823 > 1048 3 | 
05 1A 0005 BGTRU 4$ : > 1 
FC OAD b3 005 TSTL  HOLDER_ID+4 : 7 1 
06 13 0005 BEQL 5$ : 3 1 
50 2224 BF 3C 00057 4s MOVZWL #8740, RO : 1050 : 1 
04 0005¢ RET : > 1 
57 0c Ac D9 00050 5$ MOVL § SET_ATTRIB, LOC_SET_ATTRIB > 105 3 
FFFFFFFE  8F 57 D3 00061 BITL LOCTSET_ATTRIB, ~#-2 : 105 3 | 
Od 12 00068 BNEG «6S : 7 
56 10 AC DO 0006A MOVL  CLR_ATTRIB, LOC_CLR_ATTRIB + 1055 7 1 
FFFFFFFE © 8F 56 D O00¢E BITL OC“CLR_ATTRIB, #-2 : 1056 3] 
04 13 000 BEQL : 7 1 
50 14 00 00077 6$ MOVL #20, RO : 3 1 
04 0007A RET : 31 
0044 28F 00 6E 00 2¢ 0078 7$ MOVCS #0, (SP), #0, #68, SRMS_PTR > 1069 ; 
38 OA 4401 8F BO 00084 MOVW #17409, $RMS_PTR : : 1 
3C = AE 000E4000 8F DO 0008A MOVL #933888, S$RMS_PTR+4 : 7 1 
56 OA 01 90 00092 MOVE #1, $RMS_PTR+30 ; 7 1 
58 OA 30 80 90096 MOVW #48, SRMS_PTR+32 : 31 
5c OA 08 AE 9E O009A MOVAB REC_BUFFER, $RMS_PTR+36 : 3 1 
68 AE 6E 3 44 MOVAB LOC_ID, SRMS_PTRF4 5 3 | 
6C AE 04 9 OOA3 MOVB #4, ~$RMS_PTRT52 : 7 
04 AE OF 090A PUSHAB cLOsE : 1070 7 
3E AE 9F OOOAA PUSHAB RAB+ : 3 | 
01 DD OOOAD PUSHL #1 ; 3 | 
7E 04 OOOAF CLRL. = (SP) : 3 
000000006 9F 4 FB 00081 CALLS #4, @#EXESOPEN_RDB : 2 
54 0 D 9 B8 MOVL RO, STATUS : 3 | 
03 4 BB BLBS STATUS, 8$ ; 1071 3 
0093 31 0008 BRW 18$ : 3 
38 «AE «OOF 000C1 8S PUSHAB RAB : 1079 3 | 
68 1 FB 00C4 CALLS #1, SYSSGET ; : 
54 0 pO 000C7 MOVL RO STATUS : : 
00018282 «BF 4 Di OCA CMPL StAtUs. #98994 : 1080 ; 
54 21EC rf x o} MOVZ2WL #8684, STATUS ; : 
61 4 € Da 9S: BLBC STATUS > 1081 : 
55 Oc AE DO 000DB MOVL REC _BUEFER*4, ID_ATTRIB ; 1087 ; 
3E AE 04 BA OOODF BICB2 #4, "RAB+6 ; 109¢ : 
56 AE 94 O00E3 CLRB Abe : 109 : 
8 AE 9F 000ES 108 PUSHAB > 1096 : 


10 
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RDBSHR = at hts database loadable system servic 
SYSSMOD_HOLDER = modify holder record . 


1 
1 
ff 05 OB gage GALS greta 
0001827A BF , D4 EF CPL STATUS, Y3 2938 
00018051 8F 34 Di ors cHPL ues: #98385 
28 AF 9F 00101 118 PUSHAB 
9 FB 001 CALLS SYSSFREE 
4 21EC i 3¢ t MOVZWL mS’ STATUS 
10 AE 7c OA 0 29 O10 128: CMPCS HOLDER_ID, REC_BUFFER+8 
Re o§ alg TSTL LOC. CLR_ATTRIB 
04 13 0011 BEQL $- 
OC AE E CA OO11A BICL2 LOC_CLR ATTRIB, REC_BUFFER+4 
37 D3 O11 13$: Ist OC"SET“ATTRIB 
50 0c 7 ¢9 $01 BISL3  LOC_SET_ATTRIB, REC_BUFFER*+4, RO 
51 5 D2 01 MCOML ID_ATTRIB, 
Oc AE 1 CB OO12A BICL3 R17; RO, REC_BUFFER+4 
38 «AE OF 001 F 14$:  PUSHAB R 
owen ae 8) AB 0139 hott: ORO, STATUS 
38 AE OF 0013C 15$:  PUSHAB R 
69 01 FB 0013F CALLS #1, SYSSFREE 
07 04 ar E9 00142 16$:  —— BLBC : 
000000006 9F 9 FB 00146 CALLS #0, a#EXESCLOSE_RDB 
04 4 €9 00140 17$:  BLBC STATUS, 18$ 
. eB BR Shae 
50 54 v0 00154 18$:  MOVL = STATUS, RO 
4 00157 RET 


; Routine Size: 344 bytes, Routine Base: S$CODE$ + O7DE 


3 1143 1138 «#1 
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SHR = Rights database loadable system servic 16-Sep-1984 01:48: AX-11 Bliss-32 V4.0-74 Page 36 
SSMOD_IDENT = Modi fy beers Ee record 182808-1 382 93:25:83 LOADSS. RC IRDBSHR B32; . 3 
: 1145 9 1 ZSBITL * SYSSMOD_IDENT <= Modify identifier record' 
5 re ? : GLOBAL ROUTINE SYSSMOD_IDENT (ID, SET_ATTRIB, CLR_ATTRIB, NEW_NAME, NEW_ID) = 
: 1148 § 1 !¢4 
3 1149 1! 
3 ? : : FUNCTIONAL DESCRIPTION: 
3 ¢ § 1! This routine modifies the attributes of the specified | 
3 Z : } identifier. 
; 2¢ j 1! CALLING SEQUENCE ; 
3 2 9 ! SYSSMOD_IDENT (ID, SET_ATTRIB, CLR_ATTRIB, NEW_NAME, NEW_ID ) 
; 1158 § 1 ! INPUT PARAMETERS: | 
; 1159 1! : identifier longword 
; 1160 ® +; SET_ATTRIB: (optional) longword containing the attributes 
3; 1161 ak to set into the identifier recor 
: 6¢ § 1% CLR_ATTRIB: (optional) longword containing the attributes 
; 116 1! to clear in the identifier recor 
> 1164 3s i! NEW_NAME: address of a character string descriptor for 
; 1165 - 3s the new name 
i; 1166 o 1) NEW_ID: new identifier value 
; 1168 ¢ 1 ! IMPLICIT INPUTS: 
; 1169 1! NONE 
3 70 4 1! 
3 1171 5 1 ! OUTPUT PARAMETERS: 
3 Le; 6 1! NONE 
3 7 y So 3 
3 74 8 1 ! IMPLICIT OUTPUTS: 
3 1175 9 1! NONE 
3; 1176 01! 
3 77 1 1 =! ROUTINE VALUE: 
; 1178 § ,? Status of operation 
3 1179 1! 
; 1180 4 1! SIDE EFFECTS: 
; 1181 > ae Identifier record modified 
; Hf § 1: 
3; 118 1 f= 
3; 1184 8 1 
; 1185 4 BEGIN 
>; 1186 0 LITERAL 
3; 1187 1 BUFFER_LENGTH = MAX ( KGBSK_HOLD_RECORD, 
: 1188 § KGBS$K_IDENT_RECORD, 
; 3 ? KGBSK_MAINT_RECORD ) ; | 
3 1191 5 LOCAL 
: 3 LOC_ID : SBBLOCK(4]), ! local copy of ID | 
3; 119 LOC_SET_ATTRIB =: LONG, ' Local copy of SET_ATTRIB 

3 1196 3 LOC_CLR_ATTRIB ° ' local copy of CLR_ATTRIB 
3; 1195 C_NEW_NAME : LONG ' Local copy of NEW_NAME 

: 1196 LOC"NEW"ID : $BBLOCKC4), | local copy of NEWTID | 
3 119 91 NEW_NAMCEN : LONG, ' Length of new name 
; 1198 3 EW NAMADR : LONG, ' address of new name 
3; 1199 % STATUS : LONG, ' general status value ; 

; 1200 94 CLOSE : LONG, ' call to EXESCLOSE_RDB required flag 

; 1201 95 RAB : SRAB_DECL, ' RAB for file 1/0 
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vone SYSSMOD_IDENT = Modify Taentitier record . 12-8 08=1938e 93:28:29 {OaDSS SRE RDBSHR.B32; ae aH 


REC_BUFFER : SBBLOCK CBUFFER_LENGTH); 
'“record buffer for records 


LABEL 
RDB_OPEN; ! rights database is open in this block 


Validate parameters 
LOC_ID = 5103 
IF *LOC_IDCUICSV_FORMAT] EQL UIC$K_1D_FORMAT 

(IF (.LOC_ID GTRU UICS$K_LAST_ID) THEN RETURN SS$_IVIDENT) 


ELSE | 
(IF (.LOC_ID GTRU UICSK_MAX_UIC) OR (.LOC_ID EQL 0) THEN RETURN SS$_IVIDENT); 


MPINIPININININININIDD 2 4 2 PS S| DOC OOCOCOCOCOCOCOOON 


oO 


:1 1 

: Hi 

:4 11 § 

3 1 1200 

> 120 1201 

: 120 1 § 

; 120 1 

: 121 1204 

: 151 1508 

Beg 

+ 121 1 3 

we 

; 131 1 é LOC_SET_ATTRIB = .SET_ATIRIB; 

; ! } ! ? IF T.LOC_SET_ATTRIB AND NOT KGBSM_VALID_ATTRIB) NEQU 0 THEN RETURN SS$_BADPARAM; 
; 133 1215 2 LOC_CLR_ATTRIB = .CLR_ATTRIB; 

: ‘ : $ IF T.LOC_CLR_ATTRIB AND NOT KGBSM_VALID_ATTRIB) NEQU 0 THEN RETURN SS$_BADPARAM; 
: 133 1218 2 LOC_NEW_NAME = .NEW_NAME ; 

: 1 1219 2 IF [LOC"NEW_NAME NEG 0 

7 1220 2 THEN 

: 1 1221 BEGIN 

: 1 1 é STATUS = EXESVAL_IDNAME ( .LOC_NEW_NAME ; NEW_NAMLEN, NEW_NAMADR ) ; 
: 12 1 IF NOT .STATUS TREN RETURN .STATUS ; 

: 1 ied 

> 123 1226 C_"EW_ID = .NEW_ID; 

; ; i IF LOCINEW. 1D NEG 0 

> 123 1229 BEGIN 

; \S38 1$30 if -LOC_NEW_IDCUICSV_FORMAT] EQL UICSK_ID_FORMAT 

3 125 38 4 (IF (.LOC_NEW_ID GTRU UICSK_LAST_ID) THEN RETURN SS$_IVIDENT) 

; 134 34 (IF (.LOC_NEW_ID GTRU UICSK_MAX_UIC) THEN RETURN SS$_IVIDENT); 

3 ! ri 1 3 Do not allow a format switch 

+ 1264 1238 iF .LOC_IDCUICS$V_FORMAT] NEQ .LOC_NEW_IDCUICSV_FORMAT) 

: 1245 1239 THEN RETURN SS$_TVIDENT; 

a let go: 

; ' 28 : 4g Open che rights database for writing. 

> 1250 P 1244 2 $RAB_INIT (RAB = RAB, 

: 1583 B 1546 KAR = OC | 
. = | 
: 1 3g P 1 23 KSZ = 4. 

> 1254 P 1 48 KBF = L6¢ ID, 

: 1255 P 124 ROP = (LIM, WAT, RLK, ULK), 

: 1996 P 1290 USZ = BUFFER LENGTH, 

; 4 p 3 UBF = REC_BUFFER 


RDBSHR = Rights detabe loadable system servic 16-Sep-1984 01:48: AX-11 Bliss-32 V4.0-74 Page 38) 
-000 SYSSMOD_IDENT edt ty Tent fier record 16- sen 1984 93:25:33 LOADSS.SRCJRDBSHR.B32; . D 
; 1259 1253 STATUS = h ESOPEN_RDB (0 75 haa ISI], CLOSE); 
; ' 60 4 IF NOT .STATUS THEN RETUAN *STATUS 
3 1 $6 1 8 RDB_OPEN: 
: 126 1 BEGIN 
3 1264 1 8 
3; 1265 125 ! 
3; 1 96 1260 ! Modify the identifier name 
: 126 1261 ! 
3: 1268 1 66 IF .LOC_NEW_NAME NEQ 0 
: 1269 126 THEN 
3; 1270 1264 4 BEGIN 
3: 1271 1265 4 STATUS = SYSSMOD_IDENT_NAME ( RAB, ate ID, .NEWLNAMLEN, .NEW_NAMADR ) ; 
s 1 Lf: 1 98 4 IF NOT STATUS TREN LEAVE RDB OPEN 
: 127 126 END ; 
3 1274 1268 
3 1275 1269 ' 
3 ; y : 4 } Modify the identifier attributes 
3; 1278 127 IF ( .LOC_CLR_ATTRIB NEQ ) OR 
3; 1279 12735 4 ( .LOC “SET “ATTRIB NEQ ) 
: 1280 1274 3 
3; 1281 1275 4 BEGIN 
s 1 Hy 1276 4 STATUS = SYSSMOD_IDENT_ATTRIB ( RAB, .LOC_ID, 
: 128 1277 4 .LO _SET_ATTRIB, -LOC_CLR_ATTRIB ) ; 
> 1286 1278 4 IF NOT -STATUS THEN LEAVE RDB _OPEN ; 
3: 1285 1279 END ; 
3: 1286 1280 
3: 1287 1281 
3; 1288 1 ; ' 
: 1289 1 ! Modify the identifier value 
: 1290 1284 ! 
: 1291 1285 IF .LOC_NEW_ID NEQ 0 
3: 1 3 1 y THEN 
3: 129 1287 4 BEGIN 
3 1294 1288 4 STATUS = SYSSMOD_IDENT_ID ( RAB, gb. ID, .LOC_NEW_ID ) ; 
3; 1295 1289 4 IF NOT STATUS TREN LEAVE RDB OPEN 
3: 1 38 1290 ; END ; 
3: 129 1291 
; : oS \ 4 END; ! End of RDB_OPEN 
3 1380 ' 3e : Close the rights database if there is no image 
: 1 oe 129 
; 130 129 IF “SL OSE THEN EXESCLOSE_RDB(); 
3: 1304 1298 IF .STATUS 
: 1305 1299 THEN 
3 1 1300 RETURN SS$_NORMAL 
3; 1307 1301 
: } 4 : 08 RETURN .STATUS; 
: 1310 1304 1 END; ' End of routine SYSSMOD_IDENT 


cl el el el lh el cel cl cee el el el eel eel cee cel eel eel ce cel eel cel eel eel cel eel eel eel eel el cel eel cel el cell eel el eel elt el el cells eel elt elt eel elt cece cells melt cel elt cel eel elt cel cl 


og) ‘ ] 
! 


10 
RDBSHR = Rights eT, Tene e system servic 1b-Se0-19 r 91:48:39 AX-11 Bliss-32 V4.0-74 Page R 


SYSSMOD_IDENT = Mod entifier record 14-Sep-19 LOADSS.SRCJRDBSHR.B32; 
OFFC 00000 ENTRY SYSSMOD, IDENT, Save R2,R3,R4,R5,R6,R7,R8.- = 1140 
5E FF ce 9 3 MOVAB -152(Sh), SP : 
a move Be 48-48 1888 
02 OF AE 02 6 i 16 CMPZV pe LOC_1D+3, #2 + 1206 
SFFFFFFF © 8F D i8 CMPL  R7, #-1879048193 + 1208 
F 18 1F BLEQU $ 3 
p 11 1 BRB $ : 
SFFFFFFF 06 SF 57 D1 3 1$: CMPL = R7,:- 1073741823 + 1210 
4 1A 0 A BGTRU 8 ; 
7 D C i 3 Sl ; 
0 13 000 3 BEQL 8$ : 
SA 08 aC dO 00030 28 MOVL  § SET_ATTRIB, LOC_SET_ATTRIB : 1212 
FFFFFFFE &F SA D3 00034 BITL LOC“SET_ATIRIB, #-2 + 121 
0d 12 00038 BNEQ $ : 
59 0c ac DO 0003p MOVL § CLR_ATTRIB, LOC_CLR_ATTRIB + 1215 
FFFFFFFE 8F 59 D3 00041 BITL LOCCLR_ATTRIB, ~#-2 : 1216 
04 1 00048 BEQL © 4$ : 
50 14 00 0004A 3$ MOVL #20, RO : 
04 00040 RET 3 
51 10 Ac 00 OO4E 4$ MOVL § NEW_NAME, LOC_NEW_NAME F 1218 
6E D4 0005 CLRL (SPY + 1219 
51 D3 0054 TSTL LOC_NEW_NAME : 
16 13 00056 BEQL $ : 
6E D6 00058 INCL (SP) : 
000000006 9F 16 0005A JSB a#vEXESVAL_IDNAME > 1222 
56 50 00 90069 MOVL RO, STATUS F 
08 AE 51 00 0006 MOVL = RV, : 
04 AE 52 DO 00067 MOVL 2, 4(SP) ; 
7A 56 £9 00068 BLBC STATUS, 10$ : 1223 
58 14 AC dO O06 5$ MOVL NEW_ID, LOC_NEW_ID ; 1286 
38 D4 0007 CLRL = R111 : 1227 
5 D3 0074 TSTL LOC_NEW_1D : 
ee 13 00076 BEQL $ ; 
B 06 0078 INCL = R19 ; 
02 oT 02 1E ED O007A CMP2V #30, #2, LOC_NEW_ID, #2 : 1230 
09 if 007F BNEQ F 
SFFFFFFF © BF : pi ates CPL LOC_NEW_1D, #-1879048193 + 1232 
SFFFFFFF 06 O8F +4 D1 $ A 68: CMPL LOC _NEW_1D, #1073741823 > 1234 
0D 1A 00091 7$: BGTRU : 
50 58 02 IE EF 93 EXTZV #30, #2, LOC_NEW_ID, RO : 1238 
50 OF AE oe p 9 CPV #6, #2, LOC_TD+3> RO ; 
50 2224 «BF ¢ OOAD 8$: NOV ZL #8740, RO : 1239 
8F 00 6E a 00 C Ab 9$: MOVCS #0, (SP), #0, #68, SRMS_PTR > 1252 
54 AE 401 F B AF MOVW #17409 SRMS_PTR ; 
38 AE 000E4000 8F 2 B5 MOVL #933888, S$RMS_PTR+4 : 
2 AE 1 Bb MOVE #1, S$RMS_PTR3 : 
74 «AE 40 8F 98 000C MOV72BW #64, SRMS_PTR+32 ; 
78 AE 14 AE 9E 000C6 MOV REC_BUFFER, SRMS_PTR+36 ; 
EC AD OC AE 3 C MOV LOC"ID, $RMS_PTRT48 ; 
FO. AD 04 90 0000 MOVB #4, ~$RMS_PTRT52 ; 


ee ee ee me em em ee ee ee ee a ed ed ed od od = = = = = = = I 
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10 AE oF D4 PUSHAB CLOSE 
SA AF F 00007 PUSHAB RAB+ 
BR Be EUR Esp 
000000006 9F 4 F D CALLS #4, @#EXESOPEN_RDB 
6 0 D E MOVL RO, STAT 
6 € £8 10$:  BLBC  S$TATUS, 16$ 
16 6E £9 OO0EB BLBC 8=E.-s«sM“¢SP*),,-‘118 
4 AE DD 3 PUSHL NEW_NAMADR 
C AE DD OOOF PUSHL NE WINAMLEN 
5 BD F4 PUSHL R 
60 AE F rg PUSHAB RAB 
0000v cr F F CALLS #4, SYSS$MOD_IDENT_NAME 
‘ 0 D FE MOVL RO, STATUS 
20 § F 1 BLBC STATUS, 14$ 
59 D5 00104 11$: —‘TSTL t C_CLR_ATTRIB 
4 12 001 BNEO 
AD 19 TSTL , C_SET_ATTRIB 
14 13 OO10A BEQL $ 
59 DD 0010C 12$:  PUSHL LOC CLR ATTRIB 
0480 &F HH 010 PUSHR #°MZR7,R10> 
60 AE 9F 0011 PUSHAB RAB 
0000v CF 04 FB 011 CALLS #4, SYS$MOD_IDENT_ATTRIB 
56 50 DO OO11A MOVL RO, STATUS 
11 56 £9 0011D BLBC STATUS, 14$ 
OE 58 Eg 01 9 13$: BLBC R11, 14 
7E 57 7D 001 MOVa R77, =(SP) 
SC AE 9F 00126 PUSHAB  R 
0000v CF 03 FB 00129 CALLS #3, SYS$MOD_IDENT_ID 
os 50 D0 00126 MOVL RO, STATUS 
07 10 AE €9 00131 14$:  BLBC CLOSE 15$ 
000000006 9F 00 FB 00135 CALLS #0, @#EXESCLOSE_RDB 
04 56 €9 0013C 15$: BLBC STATUS, 168 
50 01 DO 0013F MOVL #1, RO 
04 0149 RET 
50 56 DO 00143 16$:  MOVL STATUS, RO 
04 00146 RET 


; Routine Size: 327 bytes, Routine Base: S$CODE$ + 0934 
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TDENESATIRID Modi ty identition wee deckepelope Socoses | LeMans O SAE Sapesun eae, 
ZSBTTL * SYSSMOD_IDENT_ATTRIB = Modify identifier attributes’ 
ROUTINE SYSSMOD_TDENY ATTRIB ( RAB_PTR, ID, SET_ATTRIB, CLR_ATTRIB) = 
lee 


FUNCTIONAL DESCRIPTION: 


This toys ine modifies the attributes of the specified 
identifier. 


i CALLING SEQUENCE : 
i SYSS$MOD_IDENT_ATTRIB ( RAB_PTR, ID, SET_ATTRIB, CLR_ATTRIB) 


! INPUT PARAMETERS: 
RAB_PTR: address of RAB for open rights data base file 
: identifier longword 
SET_ATTRIB: (optional) longword containing the attributes 
to set into the identifier recor 
CLR_ATTRIB: (optional) longword containing the attributes 
to clear in the identifier record 


i OUTPUT PARAMETERS: 
NONE 

i IMPLICIT OUTPUTS: 
NONE 

i ROUTINE VALUE : 


tatus of operation 


i SIDE EFFECTS: 


' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

: IMPLICIT INPUTS: 
NONE 
' 

' 

' 

' 

' 

' 

' 

' 

' 

‘ 

Identifier record modified 
' 


BEGIN 
LABEL 
MOD_ATTRIB ; 
BIND 
R = ,RAB_PTR : $RAB_DECL , 
REC_BUFFER = .RABCRABSL_UBF J : SBBLOCK ; 
LOCAL 
KRF SAV BYTE , 
KSZSAV BYTE ; 
KBF SAV a: 
USZSAV : WORD 
IDENT_RFA  : $BBLOCK CRABSS_RFAJ, |! RFA of ident record 
STATUS : LONG ; 


ae : 7 
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SYSSMOD_ = Modify identifier att aaa 93:28:39 LOADSS.SRCJRDBSHR. B35. oe 8) V 
; 1370 1363 2! 2} 
; : 4! : r¢ Save the state of the RAB : : 
: 1 i 1 66 KRFSAV = .RABCRABSB_KRF) ; ; } 
> 1374 136 KSZSAV = .RABLRABSB_KSZ] ; 2] 
: 1375 1 68 KBFSAV = .RABLRABSL_KBF] : i] 
: 137 1 § RACSAV = .RABLRABSB-RAC] : : | 
: 137 1370 2 ROPSAV = .RABLRABSL-ROP) ; i] 
; 137 1371 2 USZSAV = .RABLRABSW-USZ] ; 2 
ho 1398 5 3 i | 
: 138) ! ie j Set up the RAB for key record access using the id key (primary) : , 
1388 1376 RABSB_RAC] = RABSC_KEY ; : 1 
: 1384 137 nA RABSL-KBF) = ID ; : 
> 1385 1 28 RAB$B_KS7] = ; ; : 
: 1386 137 RAB RABSB_KRF] = ; 
3 1387 1380 2 RABCRABSL-ROP) = RASH LIM OR ‘ 
> 1388 1381 “WAT OR 31 
BO ec : 
: 1391 1384 2 RABLRABSW_USZ) = ROBSK-1DENT RECORD ; 2] 
; 1398 1386 NOD_ATTRIB: 
BGG | 
: 1396 1389 ' If we are clearing attributes, we have to fix up the holder records : t 
3 1332 \aay first. Locate the identifier record. ¢f 
; 1399 139 iF .CLR_ATTRIB NEQU 0 21 
: 1400 139 THEN 31 
: 1401 1394 4 BEGIN 21 
; 140¢ 1395 4 STATUS = $GET (RAB = : \ 
; 140 1396 4 IF .STATUS EQLU RMSS RN tHEN STATUS = SS$_NOSUCHID; 2 t 
> 1404 1397 4 IF NOT .STATUS THEN CEAVE MOD_ATTRIB He 
3 1405 1398 4 CHSMOVE (RABSS_RFA, RABLRABSW-RFAJ, IDENT_RFA); 21 
: 1407 1400 4 ' Now sequentially Locate all the holder records and modify them. : ’ 
: 1008 1402 ; iz 
> 1410 1208 ABLRAB$B_RAC) = RABSC_SEQ; 71 
3 1411 1408 4 ABCRABSY putk = 0; : : 
: 1418 12 3 a OH : 1 
+ 1414 1209 2 STATUS = $GET (RAB = RAB .4 
+ 1415 1408 5 IF .STATUS EQLU RMS$_EO "on .STATUS EQLU RMS$_OK_LIM THEN EXITLOOP; 7 
3 1416 1409 5 IF NOT .STATUS THEN CEAV “ATTRIB ; 3 ! 
: 1418 1411 REC BUFFERCKGBSL ATTRIBUTES) = > 
+ 1419 1418 »REC_BUFFERCKGBSC ATTRIBUTES AND NOT .CLR_ATIRIB; 31 
+ 1420 141 STATOS = SUPDATE CRAB = RAB); : 1 
+ 1421 1414 § IF NOT .STATUS THEN LEAVE MOD_ATTRIB ; 31 
+ 1258 1ale & mee i | 
+ 1426 1219 4 RABLRABSE RAC) = RABS( > 
+ 1425 1418 4 CHSMOVE (RABSS_RFA ABT DENT. Mica. RABLRABSW_RFA); : 1 
+ 1426 1419 3 END; 31 
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MOVL 
MOVL 
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MOVB 
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0b 00% 
: ‘i 
D4 99049 
D3 0040 

D6 Bper 

BB 9005) 
§ a 
D1 0005D 

12 00064 
§ 00068 1$: 
38 99 

4 B28 4 

8A 60076 

op fe 2$: 
FB 9007¢ 
D1 00086 

13 0008) 

D1 OO08F 

13 44:84 

E9 0009 

CA 90098 
fF SOR 

ot ti 
i 38 
38 $8 ; 
DD 000B9 4$: 
b8 apoce 
b 35 
3C Oct 

to ie 5$: 
—9 08 

ca ; 6$: 
BH 
BS BRIE 7 
SS rg 8$: 


p-198¢ 12:40:52 ECOadSseSRcSRDBSHA:B32; 


STATUS 
(R6), IDENT_RFA 


« SYSSGET 


TATUS, #98385 
STATUS, 8$ 
RY. 4(R7) 
#1, SYSSUPDATE 

* STATUS 

US, 2$ 

#2, (R10) 
#6, IDENT_RFA, 16(R6) 
#1, SYSSGET 
RO STATUS 

Atus, #98994 


T 
$ 
#8684, STATUS 
TAT 


us, 8$ 

, 6 

R9, 4(R7) 
f_ATTRIB 

SET_ATTRIB, 4(R7) 


#1, SYSSUPDATE 
RO, STATUS 
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<= 


@PeSe Se Ge Se Se Se Se Se ee Se Se Sete Ge teee Sete Ge tease 


RDBSHR RDBSHR = Rights database loadable system serv 


v04-000 SYSSMOD_IDENT_ATTRIB 
er} 
4 


0 
20 


000000006 


; Routine Size: 299 bytes, Routine Base: 


3: 1472 1465 1 


00 
A6 
A6 
A6 
6A 
A6 
A6 
oc 


i 


AX-11 Bliss-32 V4.0-74 


Modify identifier a LOADSS.SRCIRDBSHR.B3 


ooo-— 
Fonos 
jelejleleleleleolelololololo Maw 
Ok a od II CPO 
Pete Se Se Se Se Ge Se Ge Se Ge Be Ge 
Se rss 
PRLS 


ovon"omoowoo 


SCODES + OA7D 


dB 
SY 
46 
46 
46 
46 
47 
47 
47 
47 
47 
7 
7 
7? 
7 
7 


$ 
$ 
; 
8 
9 
0 
1 
5 
4 
5 
; 
9 
0 
1 
§ 
4 
5 
6 
? 
8 
9 
0 
1 
§ 
4 
5 
6 
? 
8 
9 
0 
1 
g 
4 


WR —"OOONOUSE 3 


ye eet oe 


co 
“ 


~ 
0 0000000000000 0000 0000 
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SSLESE 
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DONO VE WP" OOONOUEWN—O 


MR een eras ah ah Ab ab Ab Ah Al Det tet et tk et et et dl et et et et et et et et et et et et et et et et 
ae ee ee ee a a a ae a ee a a a a a ec ee a ed ce a ee ce ee ee ee ed ed ed 
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hts database loadable system servic 1b-se -1984 01:48: AX-11 Bliss-32 V4.0- 
PNT ID - Modify identifier value 14-Sep-19 4 93508: 83 LOADSS. SRC) 


ZSBTTL_* SYSSMOD_IDENT_ID = Modify identifier value’ 
ROUTINE SYSSMOD_TDENT_TD ( RAB_PTR, ID, NEW_ID ) = 


lee 
' 


FUNCTIONAL DESCRIPTION: 


Ri 
-1D 
$B 


This routine modifies the name of the specified 
identifier. 


i CALLING SEQUENCE: 

SYSSMOD_IDENT_ID ( RAB_PTR, ID, .NEW_ID ) 

i INPUT PARAMETERS: 
RAB_PTR: Address of RAB for the open rights data base file 


D: identifier longword 
NEW_ID: new value for identifier 
i IMPLICIT INPUTS: 
NONE 
i QUTPUT PARAMETERS: 
NONE 
i IMPLICIT OUTPUTS: 
NONE 
i ROUTINE VALUE: 
Status of operation 


i SIDE EFFECTS: 


! 
! 
1 
! 
1 
t 
1! 
' 
! 
! 
1! 
! 
! 
i 
1 
i] 
' 
' 
! 
! 
7 
t 
' 
i 
Identifier record modified 
' 


i If the size of the holder ever changes then the OLD_HOLDER and NEW_HOLDER 
vectors will have to be adjusted. 


SASSUME ( KGBSS_HOLDER, EQL, 8) ; 


B 
PROPRIPORIPOPOPONNIPOPOPONPONONONOMPOPONUNIDY 1 tt 
. ome 


LABEL 
MOD_ID ; 
BIND 
R = ,RAB_PTR : SRAB_DECL , 
REC_BUFF = ,RABCRABSL_UBF J : SBBLOCK ; 
LOCAL 
KRF SAV BYTE , 
KSZSAV BYTE , 
KBF SAV G, 
RACSAV BYTE , 
USZSAV : WORD , 


RDBSHR.B 


i ee oe ee ed DD 


D 11 


RDBSHR RDBSHR = Rights database loadable system servic 16-Sep-1984 01:48: AX-11 Bliss-32 V4.0-74 P 47. 
v04-000 D_IDENT ID - Asatte dentitier value 1o-8 08-1 3be 93:28:29 LOADSS.SRCJRDBSHR.B32; — (9) | 
1 OLD_HOLDER : VECTOR £3-LONG ; 

g NEW-HOLDER : VECTOR [2,LONGJ, 
STATUS : LONG ; 

5 KRF SAV | 

| 


= 
= 
= 
RACSAV = .RABLRABSB_RAC 
= [RABCRABSL ROP 
USZSAV = .RABLRABSW-USZ 


RABCRABSB_RAC) = RABSC_KEY ; 
RABCRABSB_KRF) = 0 ; 
RAB[RABSB_KSZ ; 


& 
E 
ant 
2 


NEW_ID ; 

KGBSK_IDENT RECORD ; 

RABSM_NLK OR RABSM_RRL ; ! No lock, read regardless 
FIND ( RAB = RAB ) ; 

: «STATUS THEN STATUS = SS$_DUPLN 


LNAM ; 
“STATUS NEG RMSS$_RNF THEN"LEAVE MOD_ID ; 


i Read the maintenance record to interlock the whole 
operation. 


RABCRABSL_KBF) = UPLIT (0) ; 

= KGBSK_MAINT_RECORD ; 

= RABSM-WAT OR RABSM_RLK OR RABSM_ULK ; 
STATUS = SGET ( RAB = RAB) ; 
IF NOT .STATUS THEN LEAVE MOD_ID ; 


AACA OOMMINMNIVINUIUIVIVIE SEES 
MEFWN 0 OONOUFWN ("OOOO VUE WO DOOnNO 


& 


We will now Loop through all the holder records and modify them 

by reading in the ident record, change the value, delete the old record 
record and write out the new one. The old one must be deleted 

not updated because we are modifying the primary key. 


RABCRABSL_KBF) = ID; 
RABLRABS$W_USZ] = KGBSK_IDENT 
RABCRABSL_ROP) = RABSM~ 
WHILE 1 DO 

BEGIN 

STATUS = $GET (RAB = RAB); 

IF (.STATUS EQLU RMS$_EOFS OR (.STATUS EQLU RMS$_RNF) THEN EXITLOOP; 

IF NOT .STATUS THEN LEAVE MOD_ID ; 

REC_BUFFCKGBSL_IDENTIFIER] = .NEW_ID ; 


STATUS = S$DELETE ( RAB = RAB) ; 
IF NOT .STATUS THEN LEAVE MOD_IO ; 


DPDRAEDRQED AAAs £ BB BB BB EE EAA WIWrornororornnrn) sx @ 


SAISAR AN VSSS VST S SONS Mews See NO Nsw Oo Seer emo oa Doe on ww 


RECORD ; 
LIM OR RABSM_WAT OR RABSM_RLK OR RABSM_ULK ; 


SNS NNN NOOO 


MOD_ID: 
BEGIN 
! 
Make sure that the new value is not in use. 
| 
| 


ee a ee ee et ee ee a a ee a le el el el a a a el a a ed ed 

PW Teale al eal eal al al ah al al ab ab alah slab ab sb ab ah ah ah ah ah Ab ab ab ad alah eal eal Sal eal eal ealval al eal eal eal eal eal ealealeal vale wal eale. wee) 

a ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee eee 
POPUP PVPS SV LUPUS USVI SUSU LO 
SSN NNO OO 

BEEBE EEF FAA ANNAIAAIANAN AAA WIAA NIA rnonononononorororonorfr a 


a a a a a a ee ee ae i a 


SS a 


1 | 

RDBSHR RDBSHR - Rights database loadable system servic hese -1984 01:48: AX-11 Bliss-32 V4.0-74 Page 48) 

v04-000 SYSSMOD _IDENT ID - Modify identifier value 14- gep-19 4 94:28:29 LOADSS. SRCIRDSSHR_B32: ° (9) | 
> 1588 1580 4 as 
31 89 1581 4 STATUS = $PUT ( RAB = 4 
: 1 1 5 4 IF NOT .STATUS THEN LEAVE hob. ID; - 
; 1591 1583 4 3 4 
i 1398 1584 END ; z 
; 1594 1258 e 4 
3; 1595 1 ! + 4 
; : g ! 8 Now fix all the holder records | ; | 
: 1598 1590 SREWIND ( = RAB) ; : 
; 1599 1591 OLD “HOLDEREO = ,1ID; e§ 
; 1600 139 OLD-HOLDER(1) = 0 ; 4 
; 1601 159 NEW Tae = nEW_ID : 2 
i 1608 1594 NEW? HOLDERE I]. = 0; 4 
; 160 1595 =1'; es 
> 1604 159¢ RABERABSE” 83 = OLb HOLDER; 4 
: 1605 159 RABCLRABSB_KSZ = KGBSS_HOLDER 4 
: 1606 1598 RAB RABSW- if = KGBSK~ “HOLD REEORD ; zs 
: 160 1599 WHILE 1 06 e 
; 1608 1600 4 BEGIN € 
; 1609 1601 4 STATUS = $GET (RAB = RAB) | 
3 1610 1608 4 IF (.STATUS EQLU RMS$ brs OR (.STATUS EQLU RMS$_RNF) THEN EXITLOOP; : 4 
; 191] 1603 ‘ IF NOT .STATUS THEN LEAVE MOD_ID ; e | 
; 1618 1695 ‘ CHSMOVE ( KGBSS_HOLDER, NEW_ NOLOER. REC_BUFFCKGB$Q_HOLDER) ; a1 
3; 1615 1607 4 STATUS = SUPDATE ( RAB ) e 4 
3 1616 1608 4 IF NOT .STATUS SHEN” tEAVE MOD_ 16 ; : 4 
: 1617 1609 4 Pa | 
; 1618 1610 END ; a | 
: 1619 1611 34 
: 1620 1618 STATUS = SS$_NORMAL ; 2 ¢ 
; 1621 161 P| 
: 16 ¢ 1614 END ; ! End of MOD_ID g 
: 16 1615 3 4 
; 1624 1o18 ! P| 
: 1625 161 ' Clean up locks. 4 
: 16 g 1618 ' 34 
; 16 1619 SFREE ( RAB = RAB) ; 2 4 
> 1628 1620 z 
; 1629 1621 ' 2 4 
3 16 16 § ' Restore RAB P| 
; 1631 16 i 2 4 
; 16 ¢ 1624 RABCRABSB_KRF] = .KRFSAV ; 34 
: 16 1625 2 RABLRABS$B_KSZ2) = .KSZSAV ; 74 
3 16 16 $ RABCRABSL_KBF) = .KBFSAV ; 34 
: 1635 16 RABLRABSB_RAC) = .RACSAV ; e 
$ 1636 1628 RABLRABSL_ROPJ = SAV ; a 
; 163 1629 RAB RABSW_ USZ] = [USZSAV 3 e 4 
3: 1639 1631 ' s 
3; 1640 16 § ! Get back to the beginning | sj 
3; 1641 16 ! 2 | 
i 1648 1634 2 iF .STATUS | 3 | 
: 164 1635 THEN STATUS = SREWIND ( RAB = RAB) ; 3 
3 1644 1636 | | 

| 


F 11 
RDBSHR = Rights database loadable system servic 16-Sep-1984 248: AX-11 Bliss-32 V4.0-74 
SYSSMOD. IDENT 1D - Modify identitier value 18-88-1382 94:28:28 LOADSS. SRCIRDBSHR.B32; 
1638 RETURN .STATUS ; 
16 § END ; ! End of SYSSMOD_IDENT_ID 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


90178 -BLKB 3 
00000000 00178 P.AAP: .LONG 
~-EXTRN SYSSDELETE 

-PSECT S$CODES,NOWRT,2 

OFFC 00000 SYSSMOD_IDENT_ID: 
. WORD 


Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 
SE 28 C2 0000 SUBL2 #40, SP 
56 04 AC D6 0000 MOVL RAB PTR, R6 
58 4 Ab p0 99009 MOVL 36(R6) R11 
146 AE 5 A6 90 0000D MOVB 53(R6). KRFSAV 
10 A 4 ae 90 90012 MOVB 32 (R6) , KSZSAV 
5 30 OA 9 001 MOVAB 48(R6). R7 
oc AE 6 DO 00018 MOVL (R7), KBFSAV 
08 AE 1E A6 90 OOO1F MOVE 30(R6), RACSAV 
SA 04 A6 oF 00024 MOVAB hh ie R10 
04 AE 6A D B65 8 MOVL (R10), ROPSAV 
59 20 Ab 3 002¢ MOVAB 32(R65, R9 
6E 69 : 000 MOVW  (R9), USZSAV 
1E AG 01 90 000 MOVBso#1, $9(R6) 
34 A6 04 B60 000 MOVW a4, (R6) 
67 Oc AC 9E 00038 MOVAB NEW_ID, (R7) 
69 30 BO 0003F MOVW 443 (RO) 
6A 00100008 er D 0048 OVL #1048584, (R10) 
6 DD 0004 PUSHL R6 
000000006 00 gi FB 0004 CALLS #1, SYSSFIND 
58 0 pO 0005 MOVL RO, STATUS 
04 58 5 005 BLBC = STATUS, 1$ 
58 94 BF 9A 0098 MOVZBL #148, STATUS 
00018282 = BF : p| anes 1$: CMPL TATUS, #98994 
67 0000° cr 9E 0006 MOVAB P.AAP, (R7) 
69 4 F 98 006A MOVZBW #64, (R9) 
6A 000E0000 iy D 006 OVL #917504, (R10) 
6 DD PUSHL R6 
000000006 99 Se , 7 CALLS #1, SYSS$GET 
0 D 7E MOVL RO STATUS 
51 f 1 BLBC STATUS, 3$ 
67 08 Ac 0 MOVAB ID, (R?) 
69 BO 000 MOVW aad (R9) 
6A 000E4000 BF OD 6 MOVL #938888, (R10) 
6 DD 00092 28 PUSHL 
000000006 0 gi FB 94 CALLS #1, SYSS$GET 
0 D 98 MOVL RO, STATUS 
0001827A &F i D4 i CPL STATUS, #98938 
00018282 BF D1 000A CMPL = STATUS, #98994 


PeSe Se Se Se Se Se Se Se Se Se Se Se Se S- Se Ge Fe Se Ge te Se Se Se Se Se Be Fe Be Se Se Sse Se Se Se Fe Se Se Be Be Be 
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RDBSHR RDBSHR = Rights database loadable system servic 18-5e -1984 01:48: AX-11 Bliss-32 V4.0-742 
v04-000 SYSSMOD_IDENT_ID = Modify identifier value 14-Sep-19 4 93:28:38 LOADSS SRC IRDBSHR.B32:1 


27 13 QOOA BEQL  4$ 
68 8 E 08 BLBC = STATUS, 6$ 
nt an a le 
000000006 .-% B9 CALLS #1, SYSSDELETE 
0 D C0 MOVL RO STATUS 
S 4 é ttl sTATUS, . 
000000006 90 gi F £8 CALLS of SYS$PUT 
0 DO OOOCF MOVL RO, STATUS 
BD 5 : 0D BLBS status, 2$ 
$1 1 990 3$: BRB $ 
6 DD 00007 4$: PUSHL R6 
000000006 00 01 FB 0009 CALLS #1, SYSS$REWIND 
20. AE 08 AC 00 O00E MOVL OLD HOLDER 
34 AE D4 OOOE CLRL OLD_HOLBER+4 
18 AE C AC DO OO0E MOVL § NEW-ID, NEW HOLDER 
1€¢ AE D4 OOOED CLRL NEWTHOLDER+S 
67 20 AE 9E 000FO MOVAB OLD HOLDER (R7) 
34 AG 0108 8F BO 0004 MOVW #262, 52(R6) 
69 10 BO OOOFA MOVW #16, (R9) 
56 DD O0FD 5$ PUSHL 
000000006 00 01 FB OOFF CALLS #1, SYSSGET 
58 50 D 9016 MOVL RO, STATUS 
0001827A BF 38 D1 00109 CMPL STATUS, #98938 
: 13 00110 BEQL 
00018282 BF 8 Di O0112 CMPL STATUS, #98994 
1A 13 0011 BEQL 86 7$ 
1A 58 + 0011B 6$: BLBC STATUS, 8$ 
08 AB 18 «AE 08 28 OO11E MOVC3 #8, NEW_HOLDER, 8(R11) 
56 DD 00124 PUSHL 
000000006 00 01 FB 00126 CALLS #1, SYSSUPDATE 
58 50 D0 901 D MOVL RO, STATUS 
CA 38 E 6 1 9 BLBS STATUS, 5$ 
03 11 00133 BRB 8$ 
58 91 D0 91 5 7s: MOVL #1, STATUS 
6 DD 00138 8$: PUSHL R6 
000000006 00 01 FB 0013A CALLS #1, SYSSFREE 
35 Ab 14 AE 90 00141 MOVB  KRFSAV, 53(R6) 
34 «A 10 AE 90 00146 MOVB  KSZSAV, 52(R6) 
6 OC AE po 0148 MOVL §KBFSAV, (R7) 
1E 6 08 AE 90 0014F MOVB  RACSAV, 30(R6) 
6A 04 AE DO 00154 VL —- ROPSAV. (R10) 
9 ; 80 138 VW USZSAV, (R9) 
C E9 00158 BLBC STATUS. 9$ 
6 DD 0015 PUSHL R6 
000000006 0 gi FB 01 CALLS #1, SYSSREWIND 
9 DO 0016 MOVL RO. STATUS 
0 5 Bd 016A 9$ MOVL STATUS, RO 
4 0016D RET 


; Routine Size: 366 bytes, Routine Base: S$CODE$S + OBA8 


3 1648 1640 1 


Page 50 
. (9) 


Pee Se Se Se Se Se Se Se Se Se Se Se Se Ge Ge Ge Se Se Be Se Se Be Se Se Be Be Ge Be Fe Ge Be Ge Be Se Se Se Ge Fe Be Fe Be Be Se Se Ge Ge Se Be Se 


ee ee 
SAAAOAAAS BO 


WWPoTeornrnn —— 
ViFOONOWS Or 


-—— 
aon 
IGN 
on 


ROE 
vod 


H 11 
RDBSHR RDBSHR = Rights database loadable system servic 16-Sep-1984 01:48: AX-11 Bliss-32 V4.0-74 
v04-000 SYSSMOD_ IDENT NAME - Modi ty iGentifier ame 127808713 4 93:28:38 LOADSS. RCIRDBSHR B32: 
; 1650 166) 1 ZSBTTL_ * SYSSMOD_IDENT_ NAME = Modify identifier ame' 
; 16 1 1646 ROUTINE SYS$MOD_TDENT_NAME ( RAB_PTR, ID, NEW_NAMLEN, NEW_NAMADR) = 
; 16 : 1644 1 !44 
> 1654 1645 1! 
; 1655 1968 1 ! FUNCTIONAL DESCRIPTION: 
: 16 | 1647 1! 
3; 16 1648 1! This routine modifies the name of the specified 
; 1658 1649 1! identifier. 
; 1659 1999 1! 
; 1660 1651 1 ! CALLING SEQUENCE: 
; } 1 1888 ! SYSSMOD_IDENT_NAME ( RAB_PTR, ID, «NEW_NAMLEN, .NEW_NAMADR) 
: 1808 1654 1 ! INPUT PARAMETERS: 
> 1664 1655 1! RAB_PTR: Address of RAB for the open rights data base file 
; 1665 1636 1! 2 identifier longword 
: 1968 1657 1! NEW_NAMLEN: Length of new name string 
> 166 1938 1! NEW_NAMADR: Address of new name string 
3: 1668 1659 1! 
3; 1669 1660 1 ! IMPLICIT INPUTS: 
: 1670 1661 1! NONE 
: 1671 1998 1! 
3 1676 166 1 ! OUTPUT PARAMETERS: 
3: 167 1664 1! NONE 
> 1674 1665 1! 
3: 1675 1666 1 ! IMPLICIT OUTPUTS: 
3; 1676 1667 1! NONE 
3: 1677 1668 1! 
; 1678 1669 1 ! ROUTINE VALUE: 
3; 1679 1670 1! Status of operation 
3; 1680 1671 1! 
3: 1681 1o%¢ 1 ! SIDE EFFECTS: 
; 168 1673 1! Identifier record modified 
3: 168 1674 1! 
> 1684 1675 1 !<- 
3: 1685 1676 1 
> 1686 167 BEGIN 
3 1687 1678 
3; 1688 1679 LABEL 
3; 1689 1680 MOD_NAME ; 
3 1690 1681 
3: 1691 1o3¢ BIND 
: 1206 16 = ,RAB_PTR : SRAB_DECL , 
3: 169 1o88 REC_BUFF = ,RABCRABSL_UBF J : SBBLOCK ; 
> 1694 1685 
3: 1695 1686 LOCAL 
: 1696 16 KRF SAV BYTE , 
3; 169 Joes KSZSAV BYTE , 
: 1698 16 KBF SAV LONG , 
: 199% 1690 RACSAV : BYTE , 
: 1700 1691 ROPSAV : LONG , 
3 1701 1696 USZSAV : WORD 
: 170 169 NAME BUFFER : $BBLOCK CKGBSS_NAME), 
3: 17 1694 STATOS : LONG ; 
3; 17 1695 
: 1705 1696 KRFSAV = .RABCRABSB_KRF) ; 
: 17 169 KSZSAV = .RABLRABSB-KSZ) : 


roe 


11 
vO%-000 monsunaa RENE wtngehass pigs srtfta,secate IE beeetaRe 01:48:99 YARN] BL ing232 ye 4 


RACSAV = 


~~ 
ooo 
Con 


KBFSAV = .RABCRABSL_KBF 
RAB $B_RAC 


ROPSAV = .RABLRABSL ROP 
USZSAV = .RABCRABSW_USZ 
MOD _NAME : 
BEGIN 
' 
; First find out if there is a record with the new name already 
CHSTRANSLATE (EXEST ID UPCASE, .NEW_NAMLEN, .NEW_NAMADR, 
RGBSS_NAME, NAME-BUFFERS; 
RAB : ' Id name key 


= 
RAB * = KGBSS_NAME ; i Key size 
RABCRABSI._KBF) = WARE OUFFER : ' Name string address 

= RABSA_NLK OR RABSM_RRL ; ! No lock, read regardless 
STATUS = SFIND ( RAB = R : 
IF .STATUS THEN STATUS = SS$_OUPLNAM ; 
IF .STATUS NEQ RMS$_RNF THENLEAVE MOD_NAME ; 


3 SS OOOO OOOO COOOO <@ 


FPWR 0 OB NO UNE WIN 0 OD NOUN EWN — O ODA UNE WIN 0 OD NOU EWN COONOUFS W000 ww 


WN —O CON OUSWN “CO OONOUFS WN Oo 


WAAL ALAR PONONONUNUNONN 4 SS 


NNN NSN SNS NII ISIOO OW 


3 1 1 

3; 17 1 

3 17 1 

3; 17 1 

3 i7 1 

3; 17 1 

3; 17 1 

3; 17 1 

3 7 1 

3; 17 1 

3 17 1 

3; 7 1 

3 iv 1 

3 W7 1 

3 17 1 

s 17 1 

; 17 1 

3; 17 1 

3 17 1 

3 17 1 

i} 

3; 17 1 ! The name doesn't exist. Now we will get back to the beginning 
3 1? : of the file and find the record that needs modification. 
3 17 1 STATUS = SREWIND ( RAB = RAB ) ; 

3 17 1 IF NOT .STATUS THEN LEAVE MOD_NAME ; 

; 1734 1 RABCRABSB_KRFJ = 0 ; ! Id value key 
3; 1735 1 RABLRAB$B_KSZ) = 4 ; ! Key size 

: 1738 1 RABLRABSL_KBFJ = ID ; ! ID value address 
: 1737 1 RABCRABSL-ROP) = RABSM_WAT OR i wait if locked 
3; 1738 1 RABSM_RLK OR ' Lock record 

3 1739 1 RABSM_ULK ; ! manual unlock | 
> 1740 1 RABCRABSW_USZ) = KGBSK-IDENT_RECORD ; i Ident record size 
3; 1741 1 STATUS = SGET ( RAB = RAB ) 3 

: Hot 1 IF .STATUS EQL RMSS$_RNF THEN STATUS = SS$_NOSUCHID ; 

3 174 1 ; IF NOT .STATUS THEN LEAVE MOD_NAME ; 

3 1744 1 

3: 1745 1 ! ; 

s 178 : Move the new name into the record and update the file. 

3 1748 1 CHSMOVE ( KGBS$S wa NAME _BUFFER, REC_BUFFCKGBST_NAME] ) ; 
3 1783 : : STATUS = SUPDATE ( RAB = RAB) ; 

3 178 174 END ; ! End of MOD_NAME 

: 1736 174 

3; 175 174 : 

3 1754 174 ' Clean up locks. 

3; 1755 174 ! 

3 1738 174 SFREE ( RAB = RAB) ; 

3; 175 174 

: 1738 174 ! 

; 175 1 ' Restore RAB 

: 1760 1 ! 

3; 1761 1 RABCRABSB_KRF] = .KRFSAV ; 

: 1706 175 RABLRAB$B_KSZ) = .KSZSAV ; 

3; 176 175 RABLRABSL_KBF J] = .KBFSAV ; 


wef 


ae 


kd dd ot 
SN SNS 
NNN NNO OO 

ee ee ee ee 
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000000006 00 


R = Rights database lo 
= Mod 


D_IDENT_NAME 


RABLRABSL ~ROP 
RABCRABSW_USZ 


Get back to the beginning 


if .STATUS 


THEN STATUS = SREWIND ( RAB = RAB ) ; 


RETURN .STATUS ; 
END ; 


5E 

56 

58 

04 AE 
6E 

58 

5A 

59 

20 10 BC 
C AE 
4 A6 
0 A6 
04 Ab 


000000006 90 
? 
04 


> 
00018282 =F 


000000006 99 
44 


36 Aé 
0 A6 
8 A6 
0 A6 

000000006 
00018282 8 8F 
57 
12 
Ag oc AE 
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pny Bey at ye 18-Sep-19 
RABCRAB$B ROP] = .RACSAV ; 


= .ROPSAV ; 
= .USZSAV ; 


OFFC 00000 SYS$MOD_IDENT_N 
. WORD 


OOoooooooceco 


SSSOS See eS Se SS SSS SSS SS SSSSsssssss 


OOOOCOCOCOCOGOOCOCOSOOOOOOCCOOoooO 


WOON —-ODWI COMOovoowon—F OOWVIOMS MmMooceovce 


MMW—FT Oo "ODOC oOUmMmo"so—-VTCoOMon"ovTlOoW wwoworns 


MMODOVIMOVIND FP OVIMIOVIMVICVIVIO VIC > 


ONMRMNO HK AOMOM ENO OUNT NO OMIM 


Be 92:20:82 EGabsss see Saoashn-032; 


! End of SYSSMOD_IDENT_NAME 


AME : 
Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 


ao 6) RB 


IO 
oOo 


enc - Dennen 


AV 
AMLEN @NEW_NAMADR 


BVMZFNE WEN] = 
ww 


Msc Mro-—Oor 


4, to ches 
NAME BUFFER 48(R6) 
#1048 4, 4(R6) 

#1, SYSSFIND 
RO, STATUS 
STATUS, 1$ 
#148, STATUS 
StAtUs, #98994 


R6 
#1, SYSSREWIND 
RO, S 


R 
#1, SYSSGET 
0 STATUS 
TATUS, #98994 
‘ 684, STATUS 


ATus 
#32, NAME_BUFFER, 16(R8) 


UPCASE, #32, NAME_BUFFER 


Se Se Se Se Se Se Sete Se Se Se Se Ge Se Se Ge Se Se Ge Se Se Ge Fe Se Ge Ge Se Ge Se Se Se Se Se Se Se Se Se Se 


K 11 
RDBSHR RDBSHR = Rights Fayebece nd able m servic 16-Sep-1984 01:48: AX-11 Bliss-32 V4.0-74 P 4 
V SYSSHOD_ IDENT NAM of Sth be ame 12-888 1382 93:48:29 LOADSS.SRCIR DasMR o3541 age 43) 
6 DD A9 PUSHL R 3; 1740 
000000006 99 1 FB A CALLS of SYSSUPDATE $ 
§ bd O00 3$: PUSH Re US 4767 
000000 Q6 00 01 F B CALLS if SYSSFREE ; 
Ab 08 AE 9 B MOVE KRFSAV, 33(R6) : 1752 
A6 04 AE 90 000C MOVB KSZSAV, (R6) : 175 
A6 6E 3 OC MOVL KBFSAV, 48(R6) 3: 1754 
1E A6 8 95 MOVB RACSAV, 30(R6) : 1755 
F: Aé6 AD 0D MOVL ROPSAV, 4(R6) : 1756 
0 A6 9 BO 00004 MOVW USZSAV, «hee 3 1757 
0c 2/ E ites LBC STATUS, 4 3 176¢ 
6 0D 0B PUSHL R6 3; 176 
000090006 99 gt F 3300 CALLS #1, SYSSREWIND é 
! D OE4 MOVL RO, STATUS 3 
5 3 QOE7 4$ MOVL STATUS, RO 3: 1765 
4 QOOEA RET 3: 1767 


; Routine Size: 235 bytes, Routine Base: S$CODE$S + 0D16 


; 1777 1768 #1 


CLOSE e 
RAB : $RAB DEC ' RAB for file operations 
REC_BUFFER : SBBLOCK CKGBSK IDENT_RECORD); 

T buffer to read records 


fwn-o 


LABEL e 7 
RDB_OPEN; ! rights database .. open in this block 


: Validate parameters 


OOWDNOUL WN $OOONOUS WN OOM 


LOC_ID = .1D; 
IF T.LOC_ID AND UICSM_ID_FORM_FLAG) NEQU 0 


x (.LOC_ID GTRU UICSK_LAST_ID) THEN RETURN SS$_IVIDENT) 


we eee 


MEW —OOONOu 


POPPONONOY 2 wo 


@ 
a 
wu 


ELS 


11 
RDBSHR RDBSHR = Rights database loadable system servic 18-56 -1984 748: AX-11 Bliss-32 V4.0-74 re 5 SYS 
y0e-000 SYSSREM_HOLDER = remove holder record 1 ~ep-19 4 94:28:28 LOADSS. RCIRDBSHR B32: age 433 v04 
; 1779 17 1 XSBTTL ' SYSSREM HOLDER = remove holder record’ ; 
; i » 1s } GLOBAL ROUTINE SYSSREM_HOLDER (ID, HOLDER) = ; 
i 1788 11 
: 1284 1224 1 | FUNCTIONAL DESCRIPTION: ; 
3 \? 1726 : This routine removes the specified holder record. ; 
: 1788 1778 i CALLING SEQUENCE: : 
: 434 a4 : SYSSREM_HOLDER (1D, HOLDER) : 
: 1791 17 ? 1 | INPUT PARAMETERS: : 
; 1795 17 § 1} : identifier longword PF 
: \?? 1? Z : HOLDER: address of the holder identifier quadword : 
: 1795 1785 1 | IMPLICIT INPUTS: : 
EOS Bt ate 3 
: 1798 1788 1 | OUTPUT PARAMETERS: : 
1 Peeee iT aa, : 
> 1801 1791 1°! IMPLICIT OUTPUTS: : 
om = 
> 1804 1794 1 | ROUTINE VALUE: 
: Ht 179? : Status of operation 
> 1807 1797 1 | SIDE EFFECTS: 
: 180 1798 1! Holder record removed 
; 180 1799 1! 
; 18 1800 1 !-- 
; 18 1801 1 
; 18 19% BEGIN 
: i8 1802 LOCAL 
: 18 1805 LOC_ID : LONG, ' Local copy of ID 
; 18 1306 LOC_HOLDER : REF VECTOR, ' Local copy of HOLDER 
; 18 180 HOLBER_ID : VECTOR C2], ! local copy of holder id quadword 
: 1 1808 TATUS : LONG, ! general status value f 
: ; +4 : call to EXESCLOSE_RDB required flag 
:1 1 
3 1 1 
3 7 1 
: 18 1 
2 1 1 
3; 1 1 
, } 1 
3 Y 1 
[7 1 
: | : 
31 1 
3; 7 1 T 
; 3 1 
3; 1 1 


RDBSHR RDBSH 
SYSSREM_HOLDER = remove holder record 


3 


-Sep-19 


: ' $ (IF (.LOC_ID GTRU UICSK_MAX_UIC) OR (.LOC_ID EQL 0) THEN RETURN SS$_IVIDENT); 
; 1838 1 § LOC_HOLDER = .HOLDER 

+ 1839 1 IF NOT PR R CHREE (b>, ZR £(8), .LOC_HOLDER) THEN RETURN SS$_ACCVIO; 
> 1840 1830 2 HOLDER_ID C_HOLDER 

> 1841 1831 HOLDER ID LOE HOLDERL1 

: ; ; ejihOCdER. doit GTRU UICSK "is UIC OR .HOLDER_1D(1] NEQU 0 
; 1 4 4 EN RETURN SS$_IVIDENT; 

3 : § : 8 Get the rights database open for write. 

he . 1836 

: 184 P 1839 2 SRAB_INIT (RAB = RAB, 

: 1850 P 1840 RAC = KEY, 

: 1851 P 1841 KRF = 

: 1 3 P 1 4g KBF = LOC_ID, 

: 185 P 184 KSZ = 4, 

> 1854 P 1844 ROP = (LIM, WAT, RLK, ULK), 

> 1855 P 1845 UBF = REC_BUFFER 

; 36 P 1846 sz = KGBSK_ “sare _RECORD 

; 1885 1848 STATUS = exedoPEN RDB (0, 1, RABCRAB$W_ISIJ, CLOSE); 

; 1859 1849 IF NOT .STATUS THEN RETURN. "STATUS; 

> 1860 1850 

; 1861 1851 RDB_OPEN: 

: 1 : 1 58 “BEGIN 

: 186 185 

3 1864 1854 !' Read and lock the ident record. 

> 1865 1855 3 i 

: 1866 1856 

: 1867 1857 STATUS = $GET (RAB = RAB 

> 1868 1858 IF .STATUS EQLU RMS$_RNF tneN STATUS = SS$_NOSUCHID; 

> 1869 1859 3 IF NOT .STATUS 

: 1870 1860 THEN 

: 1871 1861 4 BEGIN 

; 187 1868 4 SFREE (RAB = RAB); 

: 187 1863 4 LEAVE RDB_OPEN; 

> 1874 1864 END; 

: 1875 1865 

; 1876 1 r§] ! Read the holder records looking for the specified one. 
; 1877 186 i 

; 1878 1868 

: 1879 1 69 RAB RABSV _ULK] = 0; 

+ 1880 1870 RAC] = RABSC_SEQ; 

; 1881 1871 mite 4 mt 

:1 ¢ 1 2 4 BEGIN 

: 188 1873 4 STATUS = $GET (RAB = 

> 1884 1874 4 IF .STATUS EQLU RMS$_ FOF bp .STATUS EQLU RMS$_OK_LIM 
> 1885 1875 4 THE 

: 1 1 2 BEGIN 

: 1 187 SFREE (RAB 

: 1 8 1 28 STATUS = SS$ NOSUEMID: 

+4 187 LEAVE RDB_OPEN; 

: iBot isp, ond 

+ 1892 1882 4 IF CHSEQL (KGB$S_HOLDER, HOLDER_ID(0), KGBSS_HOLDER, REC_BUFFERCKGB$Q_HOLDER)) 


R = Rights database loadable system servic 1 i -1984 01:48: AX-11 Bliss-32 V4.0-74 Pa sl 
: ' if: 719b4 Yo:ebs89 ” 


LOADSS.SRCJRDBSHR.B32; 


52 
3 


N11 
RDBSHR RDBSHR = Rights database loadable system servic 16-Sep-1984 01:48: AX-11 Bliss-32 V4.0-74 Pp 7 SYS 
y0e=000 SYSSREM_HOCDER = remove holder record 12-8001 382 93:28:28 LOADSS. SRC JRDBSHR.B32; o0¢ 43) v04 
: } 3 } rs THEN, ITLOOP 
; i 95 5 END; ; 
: 41 98 1 ' Delete the located record. 
. en 
:4 1 TATUS = SDELETE (RAB = RAB); 
; 1901 91 FREE (RAB = RAB): 
; 1908 i 38 ' Cl mn ights database if there i i 
Py 3 ose er S$ data 
1308 4 9 ase ere is no image 
; 1909 1 3 IF .CLOSE THEN EXESCLOSE_RDB(); 
; 1908 1 98 IF -STATUS 
> 190 189 THEN 
: 1910 1900 RETURN SS$_NORMAL 
: 1911 1901 2 ELS 
; 1918 190 RETURN .STATUS; 
: 1914 1904 1 END; ! End of routine SYS$REM_HOLDER 


OOFC 00000 LENTRY SYSSREM_HOLDER, Save R2.R3.R4.R5.R6.R7 : 1770 
57 000000006 00 9€ 90002 MOVAB SYSS$FREE, R7 : 
56 000000006 00 9€ 0000 MOVAB SYS$GET, R6 ; 
5E 80 AE 9E 00010 MOVAB -128(SP5, SP : 
04 AC pb 0014 PUSHL ID t 1821 
0B 18 00017 BGEQ. ~=s 1$ : 1822 
SFFFFFFF © 8F 6E 01 00019 CMPL LOC_1D, #-1879048193 + 1824 
F 1B 000 9 BLEQU 2$ : 
3 11 000 RB 4$ : 
SFFFFFFF 6 BF E D1 00024 1$: CMPL = LOC_ID, #1073741823 : 1826 
A 1A 00028 BGTRU 4$ : 
E D3 0020 TSTL -LOC_ID : 
6 13 000eF BEQL : 
50 08 AC DO 00031 2s: MOVL HOLDER, LOC_HOLDER > 1828 
60 08 00 00 7 PROBER #0, #8. (LOC_HOLDER) + 1829 
04 0039 BNEQ 3 : 
50 0c p 6 B MOVL #12, RO : 
E RET : 
7¢ OAL 60 06 F 3$ MOVL § (LOC_HOLDER), HOLDER_ID > 1830 
FC AD 4 Ad D 4 MOVL 4(LOC_HOLDERS HOLDER 1D+4 > 1831 
SFFFFFFE © BF Ea pt 04 CMPL -HOLDER_ID, #1073741823 > 1852 
05 1A 0005 BGTRU : 
FC AD D3 5 TSTL  HOLDER_1D+4 : 
6 1 5 BEQL : 
50 2224 BF i 3 4$ ROVZUL #8740, RO > 1834 
0044 8F 00 6E . 00 C 00050 5$ MOVCS #0, (SP), #0, #68, SRMS_PTR + 1847 
38 AE 4401 F 80 ° MOVW #17409 $RMS_PTR : 
C AE 000E4000 8F D 6C MOVL #933886, SRMS_PTR+4 ; 


12 
Rights database loadable system servic 1b-$6 -1984 01:48: AX-11 Bliss-32 V4.0-742 P 8 
HOLDER - remove holder record 127808- 138 94:28:28 age 3 


RDBSHR = 

SYSSREM_ 
38 AE 
AE 
f AE 
6 AE 
6C AE 
000000006 9F 
54 
76 
66 
54 
00018282 = BF 
54 
44 
3E AE 
66 
54 
0001827A = BF 
00018051 8F 
67 
54 
10 «AE 7C AE 
000000006 00 
54 
67 
07 
000000006 9F 
04 
50 
50 


; Routine Size: 282 bytes, Routine Base: 


LOADSS.SRCJRDBSHR.B32; 1 (11) 


SCODES + 0E01 


1 90 7% MOVB = #1, SRMS_PTR+3 ; 
0 78 MOVW #48, SRMS_PTR+32 : | 
08 AE 9E O007C MOVAB REC.BUFFER, SRMS_PTR+36 : | 
E F 081 MOVAB LOC-1D. $RMS_PTR748 : | 
4 9 00 5 MOVB #4, $RMS_PTR52 : | 
04 AE 3 089 PUSHAB cLOse t 1848 | 
— AE 9F 0008C PUSHAB RAB+ : 
Qi DD O008F PUSHL #1 : | 
E 04 00091 CLRL. =(SP) : 
94 FB 00093 CALLS #4, @#EXESOPEN_RDB : 
0 DO O009A MOVIL. " U : 
54 f 0090 LBC «STATUS, 13$ + 1849 
38 «AE OOF 00 A0 PUSHAB R + 1857 
o1 FB OOA CALLS #1, SYSSGET : 
0 DO 000A6 MOVL RO. STATUS : 
54 01 000A9 CMPL = STATUS, #98994 + 1858 
5 12 90080 BNE ¢ : 
21EC «BF OC 00B¢ MOVZWL #8684, STATUS : 
4 F 00087 6$: BLBC STATUS, 10$ + 1859 
04 8A OO0BA BICB2 #4, RAB+6 + 1869 
56 AE 94 OOOBE CLRB. —s- RAB+30 + 1870 
8 AE 9F 000C1 7$ PUSHAB RAB + 1873 
01 FB 000C4 CALLS #1, SYSSGET : 
50 00 000C7 MOVL RO, STATUS : 
54 D1 OOOCA CMPL = STATUS, #98938 + 1874 
09 13 00001 BEQL ; 
54 D1 90005 CMPL = STATUS, #98385 ; 
0D 12 OOODA BNEQ 9S ; 
38 «AE 9F OO0DC 8$: PUSHAB RAB : 1877 
01 FB OOODF CALLS #1, SYSSFREE : 
21EC «BF OC3C O0E2 MOVZWL #8684, STATUS : 1878 
1B 11 OO0E BRB : 1879 
08 29 O00E9 9S: CMPC3 #8, HOLDER_ID, REC_BUFFER+8 : 1882 
DO 12 OO0EF BNEQ 7$ ; 
38 «= AE OOF OO0FI PUSHAB RAB : 1890 
01 FB O00F4 CALLS #1, SYSSDELETE ; 
50 pO 000FB MOVL RO, STATUS ; 
38 AE OF OOOFE 10$:  PUSHAB R : 1891 
01 FB 00101 CALLS #1, SYSSFREE ; 
04 AE €9 00104 11$:  BLBC E, 12$ : 1897 
00 FB 00108 CALLS #0, a#EXESCLOSE_RDB : 
54 €9 OO10F 128: BLBC STATUS, 13$ : 1898 
01 »O O12 MOVL #1, RO : 1902 
04 ou RET ; 
54 DO 00116 13$:  MOVL STATUS, RO : 
04 00119 RET ; 1904 


) 
| 


12 
RDBSHR RDBSHR = Rights database Loadabte systen servic 15-Sep-1984 91:48:39 AX-11 ag BS V4.0=74 Page 33 
v04-000 SYSSREM_IDENT = remove identifier from RDB 14-Sep-1984 12:40: LOADSS.SRCJRDBSHR.B32; (12) | 
; 191 1905 1 XSBTTL * SYSSREM_IDENT = remove identifier from RDB’ ‘ 
; 191 19 $ 1 GLOBAL ROUTINE SYSS$REM_IDENT (ID) = ‘ 
; 1918 19 1 : 
; 1919 1908 1 !+¢ ; 
> 1920 1909 1! ; 
; i 1 1319 : ; FUNCTIONAL DESCRIPTION: : 
3; 19 § 1316 1! This routine removes the specified identifier from the rights : 
+ 1924 1915 1! database. ‘ 
; 1926 1915 1 ! CALLING SEQUENCE: : 
3; 1927 1218 1! SYSSREM_IDENT (ID) ; 
; 1928 1917 1! ; 
: 1929 1918 1 ! INPUT PARAMETERS: : 
; 1930 viv 33 ID: identifier longword | ; 
> 1931 1920 1! | : 
3 19 ; 1921 1°! IMPLICIT INPUTS: ; 
3; 19 19 § iz NONE : 
; 1934 19 1} ; 
; 1935 1924 1 | OUTPUT PARAMETERS: : 
3 1936 1925 1! NONE . 
; 1937 1926 1! : 
; 1938 1927 1 ! IMPLICIT OUTPUTS: : 
; 1939 1928 1! NONE : 
; 1940 1929 1! | ; 
3: 1941 1930 1 ! ROUTINE VALUE: ; 
: 198 1931 1! Status of operation | : 
3 194 1336 is : 
3 1944 1933 1 ! SIDE EFFECTS: : 
3 1945 1934 1! Identifier record removed : 
3 1946 1935 1! : 
: 1947 1936 1 i-- ; 
3 1948 1937 1 : 
> 1949 1938 2 BEGIN | : 
; 1950 1939 . 
; 1951 1940 LOCAL : 
; 1336 1941 LOC_ID : VECTOR (2) INITIAL (0,0), : 
; 195 13e8 ' local copy of ID : 
: 1954 194 STATUS : LONG, ! general status value : 
; 1955 1944 CLOSE : . ' call to EXESCLOSE_RDB required flag : 
3 1956 1945 RAB : SRAB pet : 7 for file 1/0 : 
; 1957 1946 IDENT_RFA : $SBBLOCK CRABSS_RFA), | 3 
; 1958 1947 T RFA of ident record : 
3; 1959 1948 REC_BUFFER : SBSLOCK CKGBSK_IDENT_RECORD); : 
; 1960 1949 T Record buffer | : 
3 1961 1950 . 
: Hs 1951 LABEL : : 
; 196 1936 RDB_OPEN; ! rights database is open in this block | : 
3; 1964 195 . ° 
3 1965 1954 ! Validate ID ‘ 
3 1306 1955 ; : 
3; 196 1336 ° 
; 1968 195 LOC_10(0) = 10; : 
: 1969 1998 ¢ IF T.LOC_IDCO] AND UICSM_ID_FORM_FLAG) NEQU 0 : 
: 1971 1960 (IF (.LOC_IDCO] GTRU UICSK_LAST_ID) THEN RETURN SS$_IVIDENT) ; 
; 1972 1961 2 E : 


D 12 | 
RDBSHR RDBSHR = Rights database loadable system servic 16-Sep-1984 01:48: AX-11 Bliss-32 V4.0-74 Page 60) 
v04-000 SYSSREM_ IDENT - remove genet tiat tren ROB 122868-1 382 93:93:33 LOADSS.SRCJRDBSHR.B32; 7 a3) 
3 oT? 1368 CIF (.LOC_IDCO] GTRU UICSK_MAX_UIC) OR (.LOC_IDCOJ] EQL 0) THEN RETURN SS$_IVIDENT); 
; 1975 1964 ' Open the rights database for writing. 
$ 1278 1965 : 
3; 197 1396 | 
3 1378 P 196 SRAB_INIT (RAB = RAB, 
: 197 6 1298 RAC = KEY, | 
; 1980 P 196 KRF = 
: 1981 P 1970 KSZ = KGBSS_HOLDER, 
: 13a6 P 1971 KBF = LOC_] P 
; 198 Pp 1978 USZ = KGBSK_IDENT_RECORD, 
3 138¢ P 197 UBF = REC_BOFFER, 
$ 1Oae P Wore ong = <LIM, WAT, RLK, ULK) 
: 1987 1976 STATUS = EXESOPEN RDB (0, 1, RABCRAB$W_ISIJ, CLOSE); 
> 1988 1977 2 IF NOT .STATUS THEN RETURN .STATUS; 
3; 1989 1978 
: 1990 1979 RDB_OPEN: 
; 1991 1980 BEGIN 
3 Hb 1981 
; 199 1386 ' Delete holder records held by this id 
: 1994 198 : 
; 1995 1984 
3; 1996 1985 STATUS = $GET (RAB = RAB); 
: 1997 1986 IF NOT .STATUS AND . STATUS NEQU RMSS_RNF THEN LEAVE RDB_OPEN; 
> 1998 1987 IF_.STATUS | 
3; 1999 1988 TH 
: 2000 1989 4 BEGIN 
; 2001 1990 4 RABCRAB$B_RAC] = RABSC_SEQ; 
3 g008 1991 4 WHILE 1 DO | 
; 200 1992 3 BEGIN | 
; 2004 199 5 STATUS = $DELETE (RAB = RAB); 
: 3005 199% 5 IF NOT .STATUS | 
; 2006 1995 5 THEN 
; 2007 1996 6 BEGIN 
; 2008 1997 6 SFREE (RAB = RAB); 
; 2009 1998 6 LEAVE RDB_OPEN; 
: 2010 1999 5 END; 
; 2011 2000 5 STATUS = SFIND (RAB = RAB); 
3 sols 2001 5§ IF .STATUS EQLU RMS$_EOF OR .STATUS EQLU RMS$_OK_LIM 
: 201 $008 5 T 
3; 2014 003 5 EXITLOOP; 
; 2015 004 5 IF NOT .STATUS 
§ O1¢ 05 5 THEN 
; 201 06 6 GIN 
; 2018 007 6 SFREE (RAB = RAB); 
3 2019 008 g LEAVE RDB_OPEN; 
: 2020 009 END; 
: 2021 010 4 END; 
3 098 oi END; 
3 ° 3 O18 Now delete all holders of this identifier 
3: 20 $ 15 
; 20 16 RABCRAB$SB_RAC] = RABSC_KEY; 
; 2028 1 RABLRABSB_KRFJ = 0; 
3; 2029 018 RABCRAB$B_KSZJ = 4; 


i ss srs instants ‘ 1 


DOODOQDOCOCOC COCO OOOOOCOCOCOOCOOCOO “Wa 


sei 


— 2D 
oc 
zz 


wx 
2D 70 
m 
zi 


s database loadable system servic 18 


12 
' - remove StS EP from RDB 308-138 93:28:28 LOADSS’SREIRDSSNR: B32, Page $1 


LOADSS.SRCJRDBSHR.B32; 


STATUS = $GET (RAB = RAB); 
IF .STATUS EQLU RMSS$_RNF THEN STATUS = SS$_NOSUCHID; 
IF NOT .STATUS 
THEN 
BEGIN 
SFREE (RAB = 3 


RAB 
LEAVE RDB_OPEN; 
CHSMOVE (RABSS_RFA, RABCRABSW_RFAJ, IDENT_RFA); 


Now sequentially locate all the holder records and delete them. 


EEEPEERER Poco oreo 


MEUM (OO OONOAMNEWN ("ODDIE WN" OVONOUSWN—O 
WWIWIWIWIWIIIWnonofonoronofnunrrnn <x @ 


DONAOVLEWN "OO OONOUFSWN—O)N WW 


3 4 ; 
3 4 : 
: 4 : 
: 2 RABLRABSB_RAC = RABSC_SEQ; ; 
; é g RABCRABSV-ULK] = 0; ; 
; ILE 1 06 : 
3 205 2 4 BEGIN 3 
; 205 2 40 4 STATUS = $FIND (RAB = RAB); : 
> 205 41 4 IF .STATUS EQLU RMS$_EOF OR .STATUS EQLU RMS$_OK_LIM ; 
: soe 2 rk} 4 THEN : 
; 205 2043 4 EXITLOOP; ; 
> 205 2044 4 IF NOT .STATUS F 
> 205 2045 4 THEN ; 
; 205 2046 5 BEGIN | : 
; 205 2047 § SFREE (RAB = RAB); : 
; 205 2048 5 LEAVE RDB_OPEN; | P 
3 206 2049 4 END; | : 
; 206 050 4 j 
; 206 2051 4 STATUS = SDELETE (RAB = RAB); : 
> 206 2038 4 IF NOT .STATUS : 
; 206 2053 4 TH : 
> 206 2054 5 BEGIN ; 
> 2066 2055 5 SFREE (RAB = RAB); : 
3 2067 2056 5 LEAVE RDB_OPEN; : 
: 2068 057 4 END; : 
; 2069 058 END; | ; 
; 3070 059 eh F 
; 2071 060 ! Finally, re-locate and delete the identifier record. : 
: 3008 U8 Es, feat 
; Oy b68 RABCRABSB_RAC) = RABSC_RFA; | ; 
; 2075 064 CHSMOVE (RABSS_RFA, IDENT RFA, RABCRABSW_RFA)); ; 
; 2076 065 STATUS = SFIND™(RAB = RABY; | ; 
; 207 066 IF NOT .STATUS | : 
; 2078 06 : 
; 2079 068 4 GIN ; 
; 2080 069 4 SFREE (RAB = RAB); : 
> 2081 0 4 LEAVE RDB_OPEN; : 
; O8¢ 071 END; : 
: 208 144 : 
3 2084 7 STATUS = SDELETE (RAB = RAB); ; 
3 2085 074 SFREE (RAB = RAB); | j 
; 2086 075 END; | ; 


RDBSHR = Rights database loadab 


SYSSREM_IDENT = remove ident 


e system servic 
fier from RDB 


Close the rights database if there is no image 


~CLOSE THEN EXESCLOSE_RDB(); 
F_.STATUS 


N 
RETURN SS$_NORMAL 
RETURN .STATUS; 


F8 
SFFFFFFF 


SFFFFFFF 


NAOMI Ww 
Onronron 


000000006 


00018282 


oF 


9 
6 


BF 


RNYNOOOIMOCOCO 


rPOoOro—-rOrroooo 
Wo 


F 


X=11 Bi hee -32 V4.0-74 
LOADSS.SRC JRDBSHR B32; 


! End of routine SYSS$REM_IDENT 


aveenen. sok Save R2,R3,R4,R5,R6,R7,R8,RI 


PROKHTO-~<~~<~< 


LOC_ID, #1073741823 


> Nw er 1m 


, #0, #68, SRMS_PTR 
ne $RMS_PTR 


MMAOM NA MO PMOMALMONOOWMO 


REC “BUF ey ToRae PTR+36 
Lg¢ “ID, $RMS_PTRT48 
a2 62, Sane _PTR+5 


@DoowmooWd wowo—-90—]—0-90 100007" 
ONVIOMMOOCOCO OLOWU?S ——T—-WOOMMMMo 


SOOSOGoGSOoOCOSOOCOSOSOSOSOOOOOOOOOOOOOOOOOOOOOOOoOoOO 


Re 


Was VS FSV VSSSE SVN as s9Ss 


"oC 
Pe 


(SP) 
+e 54477 il RDB 


OVO OS"OWOCOW 


oO 


Pe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Fe Se Se Ge Ge Se Ge Se Be Se Se Se Be Se Be Be Se Se 


F 
Dd 
b 
1 


W— WOW ™—@ow 


R00 rs 3 
STATUS, #98994 


1906 


1975 


1976 


1977 
1985 


1986 


e system servic 18-5¢ Sep-19 
fier from RDB 


ROBSHR DBSHR = Rights database loadab 
v04-000 ROY SSREM| DENT - remove ident 
2F 
3A 
C 
67 
rh 
9 
3C 
é 
0001827A_ =s BFF 
00018051 + 8F 
D6 
SA AE 
70 =AE 
3C 
69 
56 
00018282 =BF 
56 21EC 
58 
34 «AE 4C AE 
SA 
42 AE 
3C 
68 
56 
0001827A 8F 
00018051 += 8F 
20 
3C 
67 
56 
D6 
SA AE 
4C AE 34 =O 
3¢ 
68 
56 
09 
3C 
7 
6 
3C 
000000006 o? 
000000006 ge 
0 


OP OU1WOUNMO FP OO MNUOMOVNW10 F V0 } 
FMAM OK M&S POUOMOAO—- MOo—mm 


=n 


VINO FP OO VIMO FM 1 VIMIO & 
AOS "MOMMA O—- MOS FOO 


oOo, > 
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31 AS 
5? AT 5$: 
4 AA gs: 
oF AD 7$: 
08 8 
B 
5 O89 
Fe BC 
bt Mite 
3 G99 
0 8 
3 00D 
E8 00004 
11 00007 
90 00009 8$: 
+4 82000 
F 000E1 
FB 00E4 
DO 000E7 
D1 QOOEA 
12 QOOF1 
3C ROO 
9 OOOF8 9$: 
8 O00FB 
4 00101 
8A 00104 
9F 00108 10$: 
FB 00108 
DO 0010E 
D1 00111 
13 00118 
D1 OO1IA 
13 00121 
§? pot 3 
F 00126 
FB 00129 
DO 0012C 
E8 0012F 
11 00152 11$: 
90 00134 12$: 
$F 001 
FB O14] 
D 144 
3 147 
44 ! A 
oH 
at 
Bg 
£8 1 
BY 16A 
4 16D 


Be 92:26:33 
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14$ 

STATUS, 8$ 
RAB+ SO 

AB 
#1, SYSSDELETE 
RO, STATUS 
STATUS, 11$ 
#1, SYSSFIND 

STATUS 

TATUS, #98938 
TATUS, #98385 
STATUS, 7$ 

13$ 


i: eH 
RAB 


#1, SYSSGET 
RO. STATUS 
STATUS, #98994 
#8684, STATUS 
SI Tus 
RASS, IDENT_RFA 
nas 30 RAB+6 
RAB 
#1, SYSSFIND 
RO, STATUS 
STATUS, #98938 
STATUS, #98385 
STATUS, 13$ 
#1, SYSSDELETE 
RO; STATUS 
STATUS, 10$ 
13$ 
#2, RAB+30 
6 IDENT_RFA, RAB+16 
#1, SYSSFIND 
STATUS, 13$ 
#1, SYSSDELETE 
RO, STATUS 
SYSSFREE 
CLOSE 
#0 abEXESCLOSE_RDB 
STATUS, 16 


AX=11 Bliss-32 V4.0-74 
LOADSS.SRCJRDBSHR .B32; 
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my ee, UE + 380 data bytes 


SHR RDBSHR = Rights database loadable system servic 16-Sep-1984 01:48: AX-11 Bliss-32 V4.0-74 Page 64 
-000 SYSSREM_IDENT = remove esate ay from RDB 13-88-38 93:28:85 LOADSS. SRC IRDBSHR_B32; . RS 
50 56 00 1 16$: MOVL STATUS, RO 
Be 80194 RET 2087 
; Routine Size: 370 bytes, Routine Base: SCODES + OF1B 
: 2099 088 1 
: 2100 089 1 END 
101 090 0 ELUDOM | 
: PSECT SUMMARY 
: Name Bytes Attributes 
: SCODES 4237 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SPLITS 380 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
ia eee ee eee ee De - Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBILIB.L32;1 18619 195 1 1000 00:01.9 
; COMMAND QUALIFIERS 
$ BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:RDBSHR/OBJ=OBJ$:RDBSHR MSRC$:RDBSHR/UPDATE=(ENHS$:RDBSHR) 


7 
A 


Noa”) AH BT13A- SE DIGITAL EQUIPMENT CORPORA 


VAX/VMS_ V4.0 ENTIAL AND PROPRIE 


